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& PC-Vision, super-éditeur 
pour PC-1500 
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1 COUVERTURE 

Quand les organigrammes 
deviennent des monuments, 
quand le flux des opérations 
se met à couler, quand 
l'imagination se déploie dans 
l'espace... L'illustration de 
notre couverture est due au 
talent de Liliane Carissimi. 


1 3 A VOS CLAVIERS | 


1 pe] LA GAZETTE 


DE LIST 


2 0 REPARTIR SUR 


DE NOUVELLES BASES 
Oublions un instant 
l'hégémonie du système 
binaire et révons à ce que 
pourrait être une 
informatique ternaire. 
Changement de base, oui, 
mais aussi changement de 
notation. 
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2 5 L'ÉDITEUR DU 


PC-1251 

Les facilités offertes au 
programmeur pour corriger 
ses programmes sont un 
élément important de son 
confort. Il faut pouvoir 
administrer à tout 
programme une bonne 
correction. Voyons comment 
le PC-1251 se débrouille 
dans ce domaine. 


2 / ENROULEZ, 


DÉROULEZ 

Le programme est très court 
et n'attend que vos 
modifications. Il anime 
l'écran de votre TRS de 
courbes qui s'enlacent, 
s'entrecroisent et se défont. 


3 / DES FRACTIONS 


A PERPÈTE 

Certains petits problèmes 
appartenant au domaine des 
mathématiques gagnent à 
être abordés par le biais de 
la programmation. C'est le 
cas des fractions continues, 


3 9 COMMENT 


ANIMER VOS CRÉATIONS 
GRAPHIQUES 

Les monstres que vous avez 
créés sur votre Oric ou votre 
Apple prennent vie. Saurez- 
vous bien les maitriser ? 


2 9 LES COUPS D'OEIL DE LIST 


29 GAS-KIT POUR C.64 
Sous la forme d'une cassette, de nouvelles possibilités 
graphiques et musicales pour l'ordinateur de Commodore. 


32 LOGOR POUR ORIC-1 ET ATMOS 

Un bon début pour ceux qui veulent découvrir le langage 
Logo. Présenté sous forme de cassette, ce logiciel simple 
d'emploi a des limites, mais aussi des qualités. 


4 Î PASCAL, SUIVEZ 


LA PROCÉDURE 

Comment générer un fichier 
quelle que soit la forme qu'il 
doit prendre, et en faisant 
vite et bien. 


44 LE BASIC DE 


L'AMSTRAD 

Moniteur, cassettophone, 
pavé numérique et 64 Ko de 
mémoire vive, voici l'Amstrad 
dans sa version de base, 
Rapport performances/prix : 
excellent. Et le Basic est l'un 
des tout meilleurs pour une 
machine de cette catégorie. 


49 UN MENU POUR 


LES POQUETTES 

Pour bien présenter les 
programmes, rien de tel 
qu'un menu. Sur les 
poquettes, on doit souvent 
ruser avec une seule ligne 
d'affichage. 


5 4 MISEZ P'TIT : 


OPTIMISEZ 

Grignotons les octets et les 
fractions de seconde (HP-41),. 
Un nouveau défi et des 
réflexions sur celui du 
numéro 4. 


L] 6 DÉROULEZ 


VOTRE AFFICHAGE 

Le programme, proposé ici 
pour PB-700, est un prétexte 
pour illustrer le 
fonctionnement d'un 
affichage à déroulement. 


Le] 6 LE BASIC DE 


L'HECTOR 2 HR + 

Résidant en mémoire morte, 
le Basic du 2 HR+ recèle 
quelques originalités, mais il 
reste très classique. 


61 DESSINEZ SUR 


AMSTRAD 

Vous avez l'inspiration. Un 
programme en Basic vous 
fournit les moyens de 
réaliser sur l'écran de 
l’'Amstrad des tableaux 
composés de formes 
géométriques. 


65 QUAND LES 


CYCLOÏDES NE TOURNENT 
PLUS TRÈS ROND 

Le sol est bien adapté aux 
roues circulaires. Mais on 
peut imaginer des roues 
moins banales. (Exemples 
sur PC-1500.) 
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66 QUE LE GRAND 


CRIC ME CROQUE 
Comment redéfinir les 
touches de la HP-41 pour 
obtenir directement les 
fonctions synthétiques. 


66 LA BOÎTE A 


MALICES 

Prenez un programme et 
retirez-en toutes les astuces, 
des plus grossières aux plus 
subtiles. Que reste-t-il ? 
Rien. Dans ce numéro, des 
ficelles pour TRS-80, 
PC-1251, AMSTRAD, DAI, 

TI 58/59, ALICE 32 ET 90, 
SPECTRUM, PB-700, ORIC-1 
ET ATMOS. 


6 0 LA RÉCRÉ DE 


LIST 

Exercez votre logique et 
votre ingéniosité pour 
résoudre quelques petits 
problèmes simples en 
apparence. 


O2 swrs 


RÉCAPITULATIF DES 

CINQ PREMIERS NUMÉROS 
DE LIST 

Depuis notre premier 
numéro, tous nos articles 
classés par thèmes, et le 
répertoire de notre boîte à 
malices classé par machines. 


Index des 
annonceurs p. 13 


Ce numéro contient en 
encart des bulletins 
d'abonnement paginés 11, 
12, 77 et 78, 


RÉDACTION-RÉALISATION 


Directeur de la rédaction : Bernard Savonet 
Rédacteur en chef : Jean Baptiste Comiti 
Responsable de rubrique : Anne-Sophie Dreyfus 
Conception graphique et secrétariat de rédaction : 
Eliane Gueylard 

Assistante de rédaction : Maryse Gros 
Administration : Marie-Hélène Muniz 


Ont collaboré à ce numéro : Pierre Barnouin, Robin Bois, 
Jacques Boisgontier, Gérard Bossuet, Roger Brousmiche, 
Thierry Chamoret, Eric Chauvel, Raymonde Coudert, 
Jacques Deconchat, Jean Drano, Michel Dupont, Florence 
Gautier-Louette, Pierre Ladislas Gedo, Josette Godefroy, 
Pierrick Greslin, Max Hagenburger, Jean-Christophe Krust, 
Jacques Labidurie, Jean-Pierre Lalevée, Pierre Langlois, 
Thierry Lévy-Abégnoli, Alain Mariatte, Pierrick Moigneau, 
Claude Nowakowski, Edouard Rencker, Denis Sebbag, 
Frédéric Vadez, André Warusfel, 


N° 6 - JANVIER/FÉVRIER 85 


Illustrations : Philippe Burel, Antoine Chereau, Frapar, 
Bernard Helme, Renée Koch, Fabien Lacaf, Sylvain Lemaire, 
Alain Mangin, Alain Mirial, Alain Prigent, Nicolas Spinga. 


ÉDITION-PUBLICITÉ-PROMOTION 

Éditeur : Jean-Pierre Nizard 

Éditeur-adjoint : Jean-Daniel Belfond 

Administration : Maryse Marti, assistée d'Anne Stolkowski 
Publicité : Béatrice Ginoux Defermon 


, assistée de Nadine Schops 


TES 
Diffusion NMPP : Béatrice Ginoux Defermon 
Abonnements : Muriel Watremez 
assistée de Cécilia Mollicone et Sylvie Trumel. 


Directeur de la publication : Jean-Luc Verhoye 


LIST est une publication du 


5 place du Colonel Fabien - 75491 Paris Cédex 10 
Téléphone : (1) 240 22 01 - Télex : LORDI 215 105 F 


La loi du 11 mars 1957 n'autorisant, aux termes des alinéas 2 et 3 de 
l'Art. 41, d'une part que «les copies ou reproductions strictement réser- 
vées à l'usage privé du copiste et nan destinées à une utilisation collec- 
tive », et, d'autre part, que les analyses et les courtes citations dans un but 
d'exemples et d'illustrations, « toute représentation ou reproduction inté: 
grale, ou partielle, faite sans le consentement de l'auteur ou de ses ayants- 
droit ou ayant-cause est illicite » (alinéa 14 de l'Art. 40). Cette représenta- 
tion ou reproduction, par quelque procédé que ce soit, constituerait dnc 
une contre-façon sanctionnée par les Art. 425 et suivants du Code Pénal. 


Notre publication contrôle les publicités commer 
cisles avant insertion pour qu'elles soient parfai. 
tement loyales. Elle suit les recommandations du 
Bureau de Vérification de la Publicité. Si, malgré 
ces précautions, vous aviez une remarque à faire, 
vous nous rendriez service en écrivant au BVP, 
BP 4508, 75362 PARIS CEDEX 08, 


LIST - PAGE 5 


VE + 


253, rue Lecourbe 
75015 PARIS 
& (1)8287288 


(de 9h à 19h sauf dimanche: 
métro Convention ou Boucicaut) 


e 
rer 


Informatique 
Electronique 
Electricité 


Formation assurée 
par des Ingénieurs 
hautement qualifiés. 


Autres formations : 
Radio-Hifi. TV-Magnétoscope. 
Chimie. Froid. 

Automation. Aviation. 


1 Veuillez m'adresser gratuitement (pour l'étranger joindre 40 FF) 
1 la documentation concernant les formations suivantes : 


BAT-BACHELIEA 


l'Adresse :__ D _ | _ 
= __ Code postal : —— 


| 

1 
 ETMS 
1 

] 

L 


Ecole Technique 


Tél. : 634.21.99 


Moyenne et Supérieure de Paris 
Enseignement privé à distance 
3, rue Thénard - 75240 Paris Cedex 05 


LU 6 


Chez Duriez :15 micros 
+9 domestiques 


Imprimantes, Magnétophones, Moniteurs, Logiciels 
ATARI, CANON, CASIO, COMMO- 


DORE, HEWLETT PACKARD, 
ORIC, 


SHARP, 


valables jusqu'au 
15 janvier 1985 


* 
* 
* 
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*+ 
* 
* 

x 


. 

Machines 

7 0e 

aecrire 

+ Photocopieurs 

+ Répondeurs 

téléphoniques 

+ Calculatrices 

+ Papeterie 

“etc... 
Demandez le 

nouveau 


catalogue 
général 
Duriez 


contre 3 timbres 
à2,10F. 


[} Duriez, 
112et 132 

bld St-Germain 
75006 Paris 
(M° Odéon, St- 
Michel} 


MPTTTITT 


À HA AA D A AR À 
PETTTTT TT TT TT 


vu les 


SINCLAIR, 


THOMSON, YAMAHA. 


ps 300 prix 
Charter: Duriez ? 


CANON 
X07 mémoire 8K . 1890 
Traceur 4 coul. X710 1850 
X07 + X710. 0 3700 
Interface video 2380 
Extension BK .. 750 


Carte mém. 4K XM100 412 
Carte mémoire 8K XM101 850 


Cordon magnéto 65 
Secteur 82 
CASIO 
PB700.. Ses 1440 
Traceur 4 coul. FA 10 2280 
PB700 +FA10 . 3700 
Extension 4KO R4 427 
Magnéto intégré CM1. 850 
Interface FA4 865 
Fx702P 990 
Interface magnéto FA2 280 
Imprimante FP 10 610 

Fx 750 
FA 20 
Carte 4 Ko. 


AMSTRAD | 


CPC 464 + moniteur vert . 2990 
CPC 464 + moniteur 

couleur : 4490 
Imprimante ............... 2490 


U CŒUR DU QUAR- 

TIER LATIN, Duriez 
vend en magasin et par 
poste à prix charter. ©: 


Il publie régulièrement 
bancs d'essai et Catalo- 
gues condensés de caracté- 
ristiques techniques préci- 
ses, sans délayage publici- 
taire, complétés par des 
appréciations et des tests 
Duriez sans complaisance. 


Ce banc d'essai est gra- 
tuit en magasin, ou envoyé 
par poste contre 3 timbres 
à 2,10 Frs. 


COMMODORE 


Commodore 64 Pal ..... 2450 
Commodore 64 Péritel... 3450 


PERIPHERIQUES VIC20 et C64 
Lecteur de cassettes... .. 450 
Lecteur de disque 1541 .. 3250 
Imprim. 50 cps MPS801 . 2690 


Manette de jeu ... ; 120 
HEWLETT-PACKARD 
HPIIC 750 
HP 15C 1230 
HP 12C 1230 
HP 16C 1235 
HP 41CV 2150 
HP41CX 2880 
Lecteur de cartes (41C) . 1850 
Accus rechargeables 390 
Chargeur 155 
40 cartes magnétiques 239 
MPOZT sus ssrsseuesest 5100 
Extension mémoire 4K . 784 


Lecteur de cartes 
magnétiques (HP 71). 1634 
Interface HPIL ........,... 1318 


portatifs 


Canon V 20 .. 2990 
Cordons Péritel … .. 195 
Yamaha YIS 503F. . 3390 


Yamaha avec synthétiseur et 


claviers se nes sesatre 4990 
ORIC ATMOS 
Oric Atmos 48 K 1990 
Cordon Péritel + alimentation 
TANT sssssetetesremone 95 
Cordon magnéto [jack] 45 
Cordon imp. parallèle 150 
Modulateur noir et blanc 210 


Modulateur coul. SECAM 530 
Lecteur de disquettes 3° . 3600 


disquette 3" 69 
SINCLAIR 
‘Spectrum +'' 48 K Péritel . 
te naines + 2590 
‘Spectrum +'', 48 K Pal 2230 
SHARP 
PC 1500 A 1890 
Traceur 4 coul. CE 150 1990 
PC 1500 À + CE 150 3850 
Extension 8K CE 155 790 


Ext. 8K Protégée CE 159. 1000 


EE Je commande à Duriez : 


132, Bd St-Germain, 75006 Paris 


Le(s) article(s) entouré(s) 
sur cette page photocopiée (ou 


- Média Conse 


cités ci-dessous). 
O Ci-joini chèque de 


40 E 
JC püierai à réception 
{Contre-Remboursement} 
[1 moyennant un supplèment de 
30 F + 40 F Port et 


ë Emballage 


Fees E 


Y compris Port et Emballage 


POUR CHOISIR, pensez 
2 fous 

1° Les performances de 
l'appareil ? 

2° Les performances des 
programmes disponiles ? 
Duriez {ait des sélections 
pour vous eviter des 
regrets. Vous êtes ranquille 


Ext 16K Protégée CE 161 1700 
Interf. RS232/Parallèle 1990 


Cable imp. parallèle 480 
Clavier sensitif 1265 
PC 1251 : : 1085 
PC 1245..,.... 540 
PC 1401. 1060 
PC 1260 se 1390 
PC 1261 é 1990 
PÉMASOsssssceusss 2160 
Interface magnéto 169 
Imprimante CE 126P 790 
Imp. + magnéto CE125 1695 
THOMSON 
MOS 2290 
Lecteur de K . 598 
OT TO sine rsnente ra 3390 
Lecteur K7 690 
Extension 64K ........... 1055 
Contrôleur de communic 850 
Monettes jeux et son 580 
Lecteur dis. avec cont 3596 
Memo Basic 480 
Cordon imp 290 
Interface SECAM 530 


it 


Si changement de prix, 
je serai avisé avant 
expédition. 

Mes Nom, Prénoms, 
Adresse (N°, Rue, Code, 


SRér donunf 


Date et Signature , 


Erratum : Nous prions les lecteurs de nous excuser pour l'erreur qui a été faite dans le numéro de novembre 1984 sur le prix du lecteur de disquette 1541 Commodore 
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Un seul else 
vous manque, et... 


PROPOS du programme 
A « Des lutins envahissent 
Pécran » (LIST 5, page 45), 
vous écriviez — je vous cite — 
que Ja ligne 35 mérite d’être sou- 
lignée. Effectivement, elle le 
mérite, mais pas pour les raisons 
que vous avancez. En fait, elle 
comporte une erreur ! 

Vous avez écrit : 35 IF X = 
—I1'THEN X = 3:IFX = 4 
THEN X = 0. Si X vaut 4, le 
deuxième test ne sera pas pris en 
compte, car avec le premier test 
OF X = —1),le programme 
aura déjà sauté à la ligne sui- 
vante. Il faut donc écrire : 


35 IF X = —-] THEN X 
ELSE IF X = 4 THEN X 


A part cette erreur (déjà par- 
donnée), le programme est 
distrayant. 


3 
0 


Sylvain CLÉMENT 
45 Olivet 


Vous êtes nombreux à 

nous avoir signalé l’er- 
reur et fourni la version corrigée 
de cette maintenant fameuse 
ligne 35. Dans le texte de l’arti- 
cle, nous avions pourtant insisté 
à SOn propos en expliquant com- 
ment on pouvait l'écrire sur deux 
lignes : 


3SIFX = — | THEN X = 3 


36 IF X = 4 THEN X = 0 
C’est en « recollant » les deux 

lignes que nous avons escamoté 

le ELSE. Quelle distraction ! 
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Ecrivez à LIST 
5 place du Colonel Fabien 
75491 Paris Cedex 10 


— 
INDEX DES ANNONCEURS LIST N° 6 
DOME en de tance tie da cn acces p. 9 
M an een M De de db cod a p. 9 
EP PT ER LI p. 7 
RAR D tn rene ne tte p. 2 
DOUS PD  S et arasenasa cue dns cou p. 6 
Librairie Informatique d’Aujourd’hui ............ p. 9 
L'Ordinateur Individuel ................. p. 10 
L'Ordinateur Personnel .................. p. 87 
Maubert Electronic ................... p. 17 
PAC sosnsme nana este eoneon due ce p. 7 
Petit Ordinateur Illustré ................. p. 86 
PS esse snenne gene ne das ee p. 3, 8 et 88 
D ET NN TN p. 15 


ERMETTEZ-moi de vous 
P adresser la réflexion sui- 
vante : votre journal bénéficie 
du privilège d’être l’un des seuls 
à parler de programmation. 
Mais si toutefois vous vous écar- 
tez de ce sujet premier ou si vous 
n’allez pas au fond de celui-ci, 
il ressemblera à beaucoup 
d’autres. 

Et c’est hélas ce que je cons- 
tate parfois. Il est, par exemple, 
totalement hors sujet de publier 
des bancs d’essai de matériels 
informatiques (Atari, Alice, 
etc.), de parler de programmes 
commercialisés ou encore de 
compilateurs, et de publier des 
Programmes sans donner d’ex- 
plications. (Fenêtre pour ZX 
81 : on aurait préféré avoir la 
liste du programme langage- 
machine désassemblé. Le pro- 
8ramme marche très bien, mais 
comment ?) 

C’est pourquoi je propose 
labandon des essais de maté- 
riels, des essais de programmes 


du commerce et l'étude en pro- 
fondeur de chaque programme 
publié. 

À part cela, je trouve les arti- 
cles intéressants. Continuez dans 
cette optique. 


Un programmeur fou 


ds Il faut bien dire que 

quelque chose nous 
échappe dans votre raisonne- 
ment. En ce qui nous concerne, 
ét nous pensons qu’il en est de 


Ga at Lune des. heure 


Toute l'équipe 
de LIST 
vous 
souhaite 
une bonne 
année 1985 


même pour la majorité de nos 
lecteurs, nous nous intéressons 
à tout ce qui touche à la pro- 
grammation. Bien sûr, il ne 
s’agit pas des gros systèmes de 
l'informatique lourde, mais des 
machines que les particuliers 
Peuvent avoir chez eux. De ce 
point de vue, il nous paraît inté- 
ressant de tester le Basic de cer- 
tains ordinateurs (et non le maté- 
riel lui-même, le Basic étant un 
langage de Programmation), ou 
d'essayer tel ou tel logiciel qui 
représente une aide à la 
Programmation. 

Ce n'est pas parce que l’on 
Programme soi-même que l’on 
écrit son propre interpréteur 
Basic ou Pascal, ou que l’on met 
au point, pendant ses heures de 
loisir, un compilateur de son 
invention. En ce sens, certains 
logiciels du commerce s’avérent 
bien utiles pour le Programmeur. 

Quant à l’étude en profondeur 
de chaque programme publié, 
nous essayons de faire pour le 
mieux. Et ce n’est pas toujours 
facile : il y a beaucoup de maté- 
riels différents sur le marché, 
autant de syntaxes, des langages 
qui méritent une attention par- 
ticulière, etc. Il est toujours dif. 
ficile de satisfaire tout le monde. 


As 


J'observe cotte machine | mais de 


n lave aiment pao 


A Compremdhe ce qu'iG 


fui trouvent de 
—“endokee 
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A VOS CLAVIERS 


De meilleures solutions 
pour les jeux 


ANS chaque numéro de LIST, vous trouvez trois jeux et casse- 
tête informatiques dont une solution est publié dans le 
numéro suivant. Ce n’est pas toujours la solution. Vous êtes nom- 
breux à en proposer d’autres, souvent meilleures. Nous vous sou- 
mettons ici celles qui concernent les jeux parus dans LIST 1. 
Remontons un peu dans le temps. proposait, sans utiliser de test 
de comparaison, de calculer la valeur du mois et de l’année précé- 
dent celle de deux variables MOIS et ANNEE. La réponse propo- 
sait deux formules, selon que le mois ou l’année était calculé en 
premier. La première était celle-ci : 
Mois = ((Mois + 10) mod 12) + 1 
Année = Année — (Mois div 12) 
Et la seconde, qui calculait l’année en premier : 

Année = Année + ((Mois + 10) div 12) — 1 
Mois = ((Mois + 10) mod 12) + 1 

Jean-Claude Besse (de Paris) a trouvé une autre formule qui 
est particulièrement originale. En effet, l’expression 2 div (M+ 1) 
prend les valeurs 1 pour M = 1, et O0 pour M > = 2. 

Il en tire donc les formules : 

Année = Année — (2 div (Mois + 1)) 
Mois = Mois — 1 + (12 + (2 div (Mois + 1)) 

L'objet du jeu 2, Pas un bit de plus, était de trouver le nombre 
B de bits nécessaires pour mémoriser N valeurs différentes. Nous 
indiquions que, compte tenu des problèmes d’arrondi, la formule 
suivante pouvait être utilisée : 

B = ENT ((log N/log 2) + 0,99999) 

Vous avez été nombreux à réagir : cette formule s’avère inexacte 
à partir d’une certaine valeur de N, différente selon les ordinateurs. 

En particulier, Denis Roegel (de Illkirch-Graffenstaden) s’est 
penché sur ce problème. Il nous signale qu’en prenant des valeurs 
telles que N = 524289, ou N = 1048583, on constate que le résul- 
tat fourni est erroné, ce qui montre que la formule proposée n’a 
pas la généralité nécessaire. 

Le nombres récalcitrants sont les entiers X tels que 2" < X 
<2M +0-P) où M est un entier quelconque, et où P = 0.99999. 

La plus petite valeur de M est donnée par : 

M = — INT (LOG (2!-P — 1) / LOG(2) 

Ainsi, si P est égal à 0.99999, on obtient M = 18. Augmenter 
le nombre de décimales de P, en prenant par exemple P = 0.999999 
n’élimine pas le problème, mais le fait reculer. 

Un autre lecteur nous indique encore deux solutions plus élé- 
gantes (et plus exactes) pour calculer le nombre de bits nécessai- 
res à la mémorisation d’une variable. La première a l’avantage 
de pouvoir être écrite dans n’importe quel langage. Elle utilise les 
trois instructions suivantes : 

A = LOG(N) / LOG(2) 
B = INT(A) 
IF A>B THEN B=B+1 

Une autre formule, moins universelle, utilise la fonction « algé- 
brique » INT. Elle est telle que INT (—3, 1) = —4. Si l’on dis- 
pose de celle-ci, notre calcul se réduit à une seule ligne : 

B = — INT (— LOG(N) / LOG(2)) 

Jean-Claude Besse nous précise que le problème est tout sim- 
plement d’arrondir par excès la valeur de B = LOG(N)/LOG(2). 
Il suggère donc, à condition que l’on travaille en Basic ou dans 
un langage dérivé, d’utiliser dans notre formule l’expression 
(INT(C) < > 0) qui prend la valeur 0 si le reste est nul, et 1 si le 
reste est non nul. 

Vous vous souvenez peut-être du jeu 3, Jet J mais pas K, un 
casse-tête qui proposait de trouver un algorithme permettant 
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d’échanger le contenu de deux variables I et J sans passer par une 
mémoire auxiliaire K. 

Jean-Paul Carré (de Vaux le Penil) nous propose une démons- 
tration rigoureuse de la validité de la formule. En notant XO0 et 
YO les variables initiales, nous avons : 


X = X + Y = X0 + YO 
Y = X —- Y = X0 + YO - YO = XO0 
X = X - Y = X0 + YO —- X0 = YO 


Ce qui montre bien que l’algorithme proposé est exact dans sa 
formulation. 

Jean-Claude Besse a, lui, trouvé une autre solution qui est excel- 
lente par sa simplicité et sa pertinence. Il remarque en effet que 
les opérations de multiplication et de division peuvent être utili- 
sées respectivement à la place des opérations d’addition et de sous- 
traction. Nous pouvons donc écrire : 


X=X*7Y 
YV=Xx/Y 
X=X/Y 


Cette nouvelle formule peut-être vérifiée en utilisant la méthode 
proposée par Jean-Paul Carré. En notant XO0 et YO les variables 
initiales, nous avons : 


X = X+Y = X0 + YO 
Y = X/Y = X0 + YO / YO = X0 
X = X/Y = X0 x YO / YO = YO 


Ce qui montre bien la validité de l’algorithme. Bien entendu, 
de la même façon qu’en utilisant l’addition et la soustraction, des 
problèmes d’arrondi, de sur-débordement ou de sous-débordement 
peuvent se poser. Jean-Paul Carré nous indique que pour cette 
raison, K (la troisième variable, dit « de passage ») n’est pas morte. 
Cela est certain en pratique. Mais il faut bien remarquer que les 
algorithmes restent justes. C’est la différence entre ce que nous 
pourrions appeler l'informatique théorique et l'informatique 
appliquée. 

Alors que Jean-Claude Besse échange les opérations additifs par 
des opérations multiplicatifs pour trouver une autre méthode 
d'échange de I et J, Pierre Barnouin (de Cabris) nous propose l’al- 
gorithme suivant : 


X = X xor Ÿ 
Y = X xor Y 
X = X xor Y 


où XOR est le OU EXCLUSIF, qui retourne un bit à 1 lorsque 
les deux bits correspondants de ses opérandes sont différents, et 
0 lorsqu'ils ont tous deux la même valeur. 

Si l’on ne dispose pas de cet opérateur, il est possible d’écrire 
l’algorithme ainsi : 


X = (X or Y) and not (X and Y) 
Y = (X or Y) and not (X and Y) 
X = (X or Y) and not (X and Y) 


Bien entendu, cette méthode permute correctement les valeurs de 
X et de Y, sans risque de débordement, puisque les opérations sont 
effectuées bit à bit. Toutefois, pour les langages « algolistes » 
(Algol, Simula, Pascal, Modula,.…) qui disposent de véritables 
variables logiques, l’opérateur booléen XOR ne fonctionne pas 
avec des entiers. D’ailleurs, cet opérateur n’opère dans ces cas là 
que sur un seul bit, ce qui rend la méthode impossible à utiliser. 
C’est pour cela que nous avions réservé cet algorithme pour un 
autre casse-tête, qui demanderait d’effèctuer l'échange de deux 
variables logiques sans variable auxiliaire. 

Comme Pierre Barnouin, Jean-Paul Carré nous fait remarquer 
que cette méthode d'échange peut se généraliser. Il nous cite la 
technique d'échange de deux variables du type chaîne de 
caractères : 

X$ = X$ + YS$ 
Y$ = LEFTS (X$, LEN(X$) — LEN(Y$)) 
X$ = RIGHTS (X$, LEN(XS) — LEN(YS)) 

Ainsi, sauf surprise, nous avons passé en revue l'échange de tous 

les types courants de variables. 
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UELLE n'aurait pas été la 
tête de Dennis M. Ritchie, 
lun des pères d’Unix et de C, 
auteur avec Brian W. Kernighan 
d’un livre fondamental sur C 
(Masson trad. 1984), si on lui 
avait dit à la fin des années 60 
que son langage et le système qui 
l’entoure feraient parler d’eux 
dans des revues grand public. 
Pour les lecteurs de LIST, le 
premier titre n’est pas exacte- 
ment du genre de leur bibliothè- 
que coutumière, mais il devrait 
en passionner beaucoup. Les 


auteurs proposent d’abord un 
historique fourni (cas assez rare 
pour être signalé favorable- 
ment), mais Surtout une vue 
d’ensemble d’Unix, l’un des 
deux ou trois systèmes de l’ave- 
nir — quand ce ne serait qu’à 
cause de la puissance d’'AT&T 
maintenant très présente dans la 
petite informatique profession- 
nelle après s’être longtemps con- 
tenté d’équiper les logiciels des 
PDP et autres VAX. 

On comprend très bien (en 
partie grâce à la préoccupation 
des auteurs de remettre les faits 
dans le fil de l’histoire) pourquoi 
et comment Unix, certes aujour- 
d’hui surtout système d'exploi- 
tation, était au départ conçu 
pour que les informaticiens puis- 
sent « produire, tester, docu- 


menter des logiciels » et reste 
donc surtout un « environne- 
ment de programmation », 
adapté au génie logiciel, présent 
à chacun des stades de l’évolu- 
tion. Bien entendu ils présentent 
(brièvement il est vrai) C lui- 
même, mais aussi les rudiments 
d’un assembleur, d’un traite- 
ment de textes, etc. 

Le deuxième livre, « Pro- 
grammer en C», de Claude 
Nowakowski, est une introduc- 
tion pédagogique et, comme le 
signale l’auteur lui-même, « à 
géométrie variable ». La règle 
du jeu choisie a été de ne pas 
transposer le Ritchie, mais de 
permettre — à partir du 
deuxième chapitre — une intro- 
duction progressive par étude de 
cas, c’est-à-dire, ici, par l’exa- 


men de programmes variés, du 
traitement de chaînes de carac- 
tères à quelques applications 
mathématiques simples. C’est 
très efficace. Une première 
annexe liste, de manière claire, 
les principales règles de syntaxe. 
La suivante, certainement fort 
utile, s'intitule « Bibliothe- 
ques » : ce sont des routines élé- 
mentaires d’une part pour le 
traitement de caractères, d’autre 
part pour le calcul scientifique 
— par exemple pour l’obtention 
de racines carrées, ou de puis- 
sances à l’aide de procédures ité- 
ratives (le langage C, sorte de 
macro-assembleur, n'ayant 
naturellement pas comme le 
Basic des fonctions de ce type 
préprogrammées). Signalons 
aussi une revue des principaux 


Jeux d'action, d'aventure, de réflexion. 


Plus de 200 logiciels en démonstration sur vidéodisque.; 


TOUTES LES MARQUES : ADAM CBS, 
ORIC-ATMOS, SINCLAIR, SPECTRAVIDÉO, 


VENTE - LOCATION - ECHANGE 


Métro Palais-Royal. Du lundi au samedi de 9h30 à 19h 
251, bd Raspail, 75014 PARIS. Métro : Raspail 


du soft à prix micro !!! 


LOGICIELS EDUCATIFS HATIER, INFOGRAMES, LORICIELS, VIFI-NATHAN 


50, rue de Richelieu, 75001 PARIS. Tél: 296.93.95 | 


ALICE, ATARI, COMMODORE, 
THOMSON, MSX ET AMSTRAD. 


_ 


nibles. 


à | 


Je désire recevoir gratuitement et sans 
engagement de ma part votre documen- 
tation sur la gamme de logiciels dispo- 


Je possède un micro de marque 


NOM 


! 
I 
| VILLE 


PRENOM 
ADRESSE 


CODE POSTAL 


———————————— —— 


Je joins 2 timbres à 2,10 F pour frais d'envoi. 
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compilateurs disponibles (en mai 
84 ; actuellement C arrive en 
masse sur les micros, au moins 
sur les 16 bits ; la liste s’allonge 
donc). 

Troisième livre sur ce langage, 
chez un éditeur proche du pré- 
cédent : un doublon ? Pas du 
tout ; bien entendu on y trou- 
vera aussi de nombreux exem- 
ples, des routines de base. On 
pourrait bien situer le Fourtanier 
et Prince en disant qu’il a donné 
la priorité à une description, 
claire et précise, des principaux 
points de la syntaxe, mais c’est 


aussi en même temps un vérita- 
ble guide d’aide à la program- 
mation, avec des conseils expli- 
citant telle ou telle possibilité, 
souvent des énoncés d’exercices 
et de nombreuses mises en 
garde, voire des exemples clas- 
siques d’erreurs explicitement 
présentes dans des programmes- 
pièges. C’est un ouvrage fait 
pour la consultation fréquente et 
facile, un de ceux que l’on glisse 
au-dessus de la pile immédiate- 
ment à droite du clavier ! 
Compte-rendu du fait que C 
n’est pas un langage de débutant 


et demande un certain effort 
intellectuel, on sent le besoin de 
plusieurs aides pour en obtenir 
une bonne maîtrise. Avec, en- 
core une fois, le Kernighan et 
Ritchie comme bible « de 
base », il semble que ces trois 
ouvrages, chacun dans son style, 
fournissent de solides points 
d’appui. Munis de ces viatiques, 
le lecteur peut partir à la décou- 
verte de l’un des plus excitants 
domaines de la programmation 
moderne, à la fois intelligent et 
proche de l'informatique des 
informaticiens. 

AW 


Porte-Parole : l’ordinateur bavard 
(extension pour Apple 64 K et 2e) 


. une carte, c’est un lo- 

giciel. C’est la parole 
donnée à l’ordinateur. Si vous 
aimez le vôtre plus que tout au 
monde, voici la seule chose qui 
lui manquait. Avantage non 
négligeable, l’ Apple muni de la 
carte Porte-parole ne cause que 
si on lui demande. Et qui plus 
est, il ne raconte que ce que l’on 
souhaite entendre ! Que deman- 
der de mieux, hum ? 

Que fait Porte-parole ? Sans 
attendre, commençons avec un 
exemple... parlant, bien 
entendu ! Une première applica- 
tion consiste à sonoriser le cla- 
vier (pas inutile pour en appren- 
dre la disposition des touches, 
les non-voyants en particulier 
apprécieront). Un programme 
qui remplit cette fonction est 
d’ailleurs fourni avec la carte. 
Plus généralement, n’importe 
quel message, tapé au clavier en 
français, est traduit en langage 
phonétique. C’est en partant de 
cette représentation d’une 
phrase qu’est réalisée la synthèse 
du son. 

La carte se connecte à l’ordi- 
nateur par l'intermédiaire du 
port n° 4 (et tant pis pour la 
carte Z-80 !}), puis au petit haut- 
parleur grâce à un fil d’une cin- 
quantaine de centimètres. 
Notons au passage que la docu- 
mentation précise bien que cette 
dernière connexion s'effectue 
sur la prise située à droite, sous 
le clavier. Raté, sur l’ Apple 2e 
cette prise est à gauche ! On peut 
aussi dévier le son vers un haut- 
parleur externe à l’aide d’une 
grosse prise mâle (genre HIFI ou 
antenne de TV). De nombreux 
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Tu 65 LE PLUS BEAU, 
LE PLUS INTELLIGENT, 


LE PLUS GENTIL: 


LE PLUS ASTUCIEUX ; 


LE REUS PROLÉ 
LE PLUS HABILE... 


supports de circuits intégrés sur 
la carte sont... complètement 
libres ; on peut ainsi ajouter à la 
carte des puces de mémoire 
morte ou vive dans lesquelles on 
stockera des données à synthé- 
tiser. Evidemment, cela vaut sur- 
tout pour des applications 
professionnelles. 

Le premier programme de la 
disquette réalise la synthèse d’un 
texte court tapé au clavier, soit 
en clair, soit directement en écri- 
ture phonétique. Ceci fait, l’or- 
dinateur prononcera le texte à sa 
façon (et pas toujours tel que 
nous le dirions nous-mêmes). Il 
est possible de modifier la trans- 
cription phonétique effectuée 
par l’Apple, afin d’affiner la 
prononciation. On dispose d’une 
série d’outils pour infléchir la 
voix, la rendre interrogative ou 
péremptoire, etc. 


REpis-Hoi 
TouT 4 : 


ra 
CS 


sein 


On devra aussi travailler des 
phrases difficiles comme « les 
poules du couvent couvent » 
car, d’évidence, l’un des deux 
derniers mots sera mal prononcé 
(ici le second). L’orthographe 
désopilante du français jouent 
des tours au programme : la 
finale -ent (troisième personne 
du pluriel) est prononcée ‘‘ant””. 

La sauvegarde des textes s’ef- 
fectue sur disquettes, largement, 
car elle est loin d’être économi- 
que ! On se constituera des 
bibliothèques de mots ou grou- 
pes de mots (un fichier par 
texte). 

Le second programme est un 
utilitaire permettant la réunion 
de plusieurs bibliothèques diffé- 
rentes en un catalogue : ces 
phrases pourront ensuite être 
prononcés à volonté à l’appel 
d’un quelconque programme en 


Carte Minitel 
pour Canon X 07 


| fee de s’énerver et de 
courir désespérément entre 
Minitel et ordinateur. Ne gaspil- 
lez plus votre énergie, vous pou- 
vez désormais raccorder votre 
Canon X 07 au système Mini- 
tel ! Pour 300 FF ht. 

L’Electronic Cable Interface, 
produit par la société ECI, vous 
permet de visualiser vos infor- 
mations sur Minitel, de mémo- 
riser des pages vidéotex, de met- 
tre en œuvre le protocole vidéo- 
tex et de mémoriser les procédu- 
res d’accès aux banques de 
données. 

Pour tous renseignements : 
(91) 78 92 75 


Basic ou en Edi-Logo (même 
éditeur que la carte Porte- 
parole). 

Le fin du fin est la mise au 
point graphique des messages 
parlés. L’utilitaire fourni assure 
la représentation graphique des 
sons paramétrés : amplitude, 
fréquence, etc. que l’on fera 
varier un à un jusqu’à obtenir le 
son voulu. C’est du grand art 
que d’utiliser à fond cet ultime 
outil de mise au point. 

Il cause bien, mais joue de la 
musique sans doute aussi bien. 
Moins compliquée que la parole, 
la note de musique, du moins si 
l’on se contente d’un timbre arti- 
ficiel, est aisée à générer. Porte- 
parole ne s’en prive pas. C’est 
avec l’utilitaire graphique qu’on 
fixera les paramètres de la pro- 
duction des notes. Inutile de son- 
ger à écrire ainsi toute une 
symphonie, mais quelques notes 
de musique sont parfois bienve- 
nues dans un programme. 

Bien sûr, Porte-parole sait 
aussi faire du bruit. D’horribles 
bruits même, on se les concoc- 
tera à volonté avec l’utilitaire de 
mise au point. Six exemples sont 
donnés sur la face 2 de la 
disquette. . 

Edités par Ediciel (Matra- 
Hachette) la carte et le logiciel 
Porte-parole sont diffusés pour 
un prix de 1 995 FF ttc. Le logi- 
ciel seul coûte 600 FF ; il est des- 
tiné aux utilisateurs qui sont déjà 
en possession de la carte électro- 
nique. Cette dernière est en effet 
vendue avec Edi-Logo. 

JCK 
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Olympiades de la micro-informatique 


ILOTER un simulateur d’Airbus, dessiner sur un micro- 
ordinateur. ce sont deux exemples des épreuves proposées 
aux candidats des premières olympiades de la micro-informatique 
organisées par la ville de Toulouse du 3 décembre 1984 au 10 jan- 
vier prochain. Manifestation d’un nouveau genre, les concurrents 
(ils doivent être domiciliés dans l’agglomération toulousaine) seront 
répartis en quatre classes d’âge (moins de 12 ans, 12 à 16 ans, 16 
à 20 ans, et plus de 20 ans) et pourront disputer une ou plusieurs 
des cinq épreuves proposées. Au programme : 
+ Un concours de création artistique sur micro-ordinateur Thom- 
son grâce au logiciel Pictor. 
° Une épreuve de simulation d’atterrissage aux commandes d’un 
Airbus. 
+ Un concours de programmation sur micro-ordinateur Thomson 
avec pour thème imposé un sport disputé lors des jeux Olympi- 
ques, d’été ou d’hiver. 
+ Chasse aux bogues. Il s’agit de relever le maximum d'erreurs 
glissées dans une liste de Programme. Le premier qui réussit à faire 
fonctionner le programme a gagné. 

Enfin, dernier casse-tête olympique : raccourcir le nombre de 
Caractères d’un programme Basic sans, bien entendu, en modi- 
fier la substantifique moelle. 

C’est le célébrissime Michel Platini en personne, parrain de ces 
premières olympiades, qui remettra les récompenses aux vainqueurs 
le 28 janvier 1985. CI 


Une imprimante française pour 3 000 F 


NE imprimante “professionnelle”, bi-mode (graphique-texte - 
vidéotex) bi-directionnelle, compacte, silencieuse, le tout 
pour 3 000 FF : une blague ? 

Si on ajoute qu’elle est entièrement française (de conception et 
de fabrication), personne, bien sûr, n’y croira. Et pourtant. Une 
fois n’est pas coutume, cette imprimante existe, 

Elle est baptisée EXL et sort tout droit de l'association de deux 
sociétés françaises, Euroterminal et la CGCT. Elle « court » à rai- 
son de 100 caractères par seconde, se branche aussi bien sur un 


ordinateur que sur Minitel et se révèle à l’usage relativement ! 


silencieuse. 


L’EXL n’est pas thermique (c’est une matricielle à aiguilles) et ! 


elle accepte 80/132 colonnes. Elle dispose aussi d’une interface 
parallèle, d’une entrée/sortie asynchrone RS 232 avec boucle de 
Courant et gestion des protocoles X-On, X-Off et DTR. On 
annonce par ailleurs pour bientôt une version couleur. CL] 


UN LIVRE 


Le livre du 64 

Benoît Michel 

Editions BCM 
(PSI diffusion) 

| Banneux, 1984 

Broché, 290 pages 

| Prix : 120 FF 


RÈS bon, excellent même. 
Peu de livres méritent ces 
qualificatifs. Le livre du 64, écrit 
par Benoît Michel avec l’aide 
| d’un club informatique belge, 
est de ceux-là. Il se révèle être 
une vaste mine de renseigne- 
ments et d’idées sur le Commo- 


L'auteur, une fois encore, a 
frappé fort. Il n’est pas un 
inconnu pour les « vieux » com- 
modoristes qui ont su tirer pro- 
| fit de ses précédents ouvrages, 
_ parus sous le titre Programmes 
| internes du PET/CBM, chez le 
. même éditeur. 

Le livre du 64 reprend, avec 

une présentation plus gaie, ce 
qui a fait le succès des précé- 
| dents : il contient une étude 
fouillée de tout ce qui fait la 
‘ puissance du C.64. 
Après une description géné- 
. rale de l’architecture du système 
64, le deuxième chapitre est con- 
| Sacré aux programmes internes. 
On n'y trouve pas le désassem- 
| blage systématique de la 
mémoire, mais une liste des 
points d’entrée des diverses rou- 
tines utilisables, et la manière de 
les mettre en œuvre. 

Les chapitres 3 et 4 sont les 
| plus fournis : ils décrivent avec 
| clarté et précision les différents 


dore 64 et sa programmation. * 


modes graphiques et la gestion 
des lutins. Les amateurs de 
haute-résolution et de graphisme 
en général y trouveront pratique- 
ment tout ce qu’il faut connafî- 
tre sur le sujet. On aborde 
ensuite les sons, puis les 
entrées/sorties. Enfin, le dernier 
chapitre, contient une carte- 
mémoire simplifiée du C.64. 
En annexe, sur une centaine 
de pages, sont fournis de nom- 
breux programmes de démons- 
tration de qualité assez inégale 


. Mais dont certains sont remar- 


quables, soit par leur puissance, 
soit par leur concision. 

Voici donc un livre très docu- 
menté, technique et clair. Les 
débutants y trouveront leur 
compte, mais le livre s’adresse 
plutôt aux programmeurs aguer- 
ris, qui veulent tirer plus de leur 
machine. Une petite connais- 
sance (même très sommaire) du 
langage-machine est utile pour 
profiter de tout. 

JPL Æ 


CALCULATRICES et ORDINATEURS de POCHE 


LR ne accessoires et machines à écrire électroniques Sharp-Canon 


Super Promotion sur Stock ! 


IHEWLETT-PACKARD 
HPII-HP12-HP15-HP4ICV 
HP41CX-HP7 1-etc. 


PC1245-PC1251-PC1255-PC1350 
PC1401-15004-1260-1261-ctc. 


FX700-FX702P-FX750-PB200 
PB700-etc. 


NOUVEAUTE "M.S.X "EN DEMONSTRATION 
» bd. St Germain. PARIS 5° TEL. 325.88.80 PLACE ET M° MAUBERT 


X07 et périphériques etc. 
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CASSETTES 


Edité par Logi’stick 
Distribué par DDI 
Compatible Péritel 


Texte 
Prix : 150 FF 


Graphe 
Prix : 150 FF 


Fonctions + matrices (maths) 
Prix : 150 FF 


Edité et distribué par Loriciels 


Assembleur symbolique 
Prix : 260 FF 


Gengraph 

(générateur de caractères 
et de graphismes) 

Prix : 140 FF 


Lorigraph 
(création graphique) 
Prix : 290 FF 


IDÈLE au rendez-vous, le 

prochain Spécial Sicob se 
tiendra du 6 au 11 mai 1985 au 
CNIT (Paris-la Défense). 


Un succès en prévision 
puisqu’à cinq mois de l’ouver- 
ture de ce deuxième rendez-vous 
de printemps, 413 sociétés ont 
déjà confirmé leur participation. 
(En un an le Spécial Sicob a aug- 
menté de près de 60 % sa super- 
ficie totale). 


Deux journées (le 8 et le 11 
mai) seront réservées au grand 
public. Et pour la première fois, 
on proposera des sessions d’ini- 
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UN LIVRE 


Le système MEM/DOS 
Pierre Clerc 

Editests 

Paris, 1984 

Broché, 102 pages 
Prix : 90 FF 


NFIN ! vont dire bien des 
utilisateurs de MEM/ 
DOS. Tous les possesseurs 
d’Apple ayant essayé de pro- 
grammer des fichiers sous DOS 
3.3. connaissent, au moins de 
nom, le MEM/DOS. 

Il s’agit d’un outil d’aide à la 
conception de programmes, qui 
se présente sous la forme d’une 
carte enfichable dans l’un des 
ports d’extension de l’Apple IT 
(disponible également sur CBM 
8096, Sil’z et sans doute prochai- 
nement sur IBM PC). C’est un 
système d'exploitation qui, 
rajoutant des ordres au Basic, 
permet de gérer des fichiers 
séquentiels indexés multiclés et 
des masques d'écran (saisie, res- 


le système 
MemDos 


canceplion de progl'anunes 


___\N 


PASSES 


meme en a Æe eo] 


titution, impression) avec une 
facilité que « l'ancêtre » DOS 
3.3 ne laissait pas supposer. 
Sa qualité fait que l’on ne ren- 
contre pratiquement pas d’utili- 
sateur qui n’en soit pas enthou- 
siaste. Sauf. un petit détail : le 
manuel qui accompagnait la 
carte jusqu’à dernièrement était 
particulièrement « imbuvable ». 
Pour l'initiation, on n’ose même 
pas en parler. Vous dire l’impa- 


Faites-vous connaître. 


S i vous faites partie à 
tif, où l’on apprend 


loin de chez eux. 


tiation à la micro-informatique. 
En une heure trente (durée 
d’une session), les participants 
apprendront à mieux choisir un 
micro-ordinateur en fonction de 
leurs besoins. (Le coût d’une 
session est de 100 FF). 

Quant à la boutique du Sicob, 
une suprise, elle déménage. 
Sicob Boutique quitte en effet la 
Défense pour s'installer au 
Palais des congrès (porte Mail- 
lot). Sicob Boutique ouvrira ses 
stands du 23 au 28 septembre 
prochain. De nombreux aller- 
retours en perspective pour les 
visiteurs Curieux. 


n club d’informatique, sans but lucra- 


ÿ pratique la programmation et si 
vous recherchez de nouveaux adhé® 


tence. En lisant votre adresse dans CROQUER 
lecteurs seront contents d'apprendre que VOTE re) 


ts, signalez-nous votre exis- 


tience des utilisateurs. Le livre de 
Pierre Clerc tombe donc très 
bien et va sûrement contribuer 
au développement de ce système. ” 

Une présentation du produit, 
de ses concepteurs Lafitte et 
Nesnidal, de la société Memsoft 
et une courte prospective nous 
prouvent qu'informatique ne 
rime pas toujours avec 
Amérique. 

Ensuite, dans un style concis 
mais clair, l’auteur nous décrit 
l’organisation générale de ce 
système d’exploitation. Cela per- 
mettra à l'utilisateur de com- 
prendre ce que MEM/DOS sait 
et ne sait pas faire. Nous avons 
spécialement apprécié l’emploi 
du mot exact et la précision des 
informations non diluées dans 
un verbiage pseudo-technique. 

Le chapitre trois présente la 
syntaxe des ordres MEM/DOS 
sous forme de 39 fiches (une par 
ordre) claires et complètes (effet, 
syntaxe, particularités, exemples 
d'utilisation). 

Enfin, un exemple concret et 
commenté nous fait découvrir, 
à travers un programme classi- 
que de gestion d’immobilisa- 
tions, les fonctionnalités de 
MEM/DOS. 

Nous n’avons trouvé dans cet 
ouvrage qu’un oubli (la descrip- 
tion des ordres LOAD’” et 
SAVE”), mais nous regrettons 
beaucoup l'absence d’un index 
alphabétique. On se demande 
vraiment pourquoi tant d’au- 
teurs de nos jours négligent ces 
index qui rendent la consultation 
d’un livre tellement plus com- 
mode. Cela dit, cette lacune est 
peu de chose comparée à l’aide 
que ce livre apportera aux pro- 
grammeurs et aux futurs pro- 
grammeurs MEM/DOS. 

JL Œ 


A société alsacienne Neol annonce une interface permettant 

de retirer n’importe quelle imprimante dotée d’une liaison 
parallèle au standard Centronics au bus série du Commodore 64. 
Equipée de son propre micro-processeur, la WW 9200/G (nom 
de code de cette interface), assure la conversion de liaison (bus 
série - parallèle tvpe Centronics), l'encodage des caractères ainsi 
que la reproduction du graphime utilisé par le Commodore 64. 
Elle ne nécessite aucun programme particulier et n’occupe aucun 


emplacement en mémoire. 


Livrée avec cables et connecteur, la WW 9200/G coûte 992 FF 
tte, au départ de Strasbourg bien entendu. 
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Nou 

E N tête des hit-parades des 

logiciels depuis plus de 
six mois selon Apple, l’Apple 
Works sera disponible en fran- 
çais dès la fin décembre. A 
noter, en version tricolore, le 
logiciel de traitement de texte et 
de gestion de fichiers personnels 
fait peau neuve. 

Innovation qui paraît aller de 
Soi par rapport au modèle US; 
l'Apple Works français utilise 
les accents circonflexe, tréma, 
aigu, grave, ils sont tous là. 
Apple Works propose égale- 
ment des formats financiers et 
comptables libellés en francs, 
des dates et des formats horai- 
res conformes, aux usages fran- 
çais, des virgules décimales … 

Commercialisé au prix de 
2 490 FF tte, Apple Works est 
accompagné d’un ouvrage de 
référence de 330 pages et d’un 
manuel de travaux pratiques de 
140 pages rédigé en français. 
Pour une fois, on ne pourra pas 
reprocher le manque de 
documentation. = 


Lecteur de disquettes 
sur batteries 
chez Hewlett-Packard. 


D ESTINÉS aux gros dévo- 

reurs de mémoire, de nou- 
veaux lecteurs de disquettes 
(dont un modèle fonctionnant 
Sur batterie) ont été annoncés 
chez Hewlett-Packard. 

Trois configurations différen- 
tes seront prochainement dispo- 
nibles. Parmi celles-ci : 

° la HP 91 225, modèle simple, 
offre une capacité de stockage 
de 710 Koctets formatés, soit le 
triple en capacité de la version 
introduite en 1982 : 
+ la HP 9114 A, modèle porta- 
. ble, fonctionne sur batterie avec 
disque 3 1/2 pouces. 

Cette unité permettra par ail- 
leurs, de réaliser des échanges de 
données entre le portable HP 
110 et, bien entendu, leur 
modèle « de charme », le HP 
150 à écran tactile. Ces nouvel- 
les unités 3 1/2 pouces sont 
compatibles avec les unités sim- 
ple face déjà en service. Eu 
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UN PETIT TOUR CHEZ LE LIBRAIRE 


Musique sur Commodore 64 
Un guide pour programmer 
la musique et les sons 
James Vogel et 

Nevin B. Scrimshaw 
Editions Cédic/Nathan 
Paris, 1984 

Broché, 160 pages 

Prix : 85 FF 


Graphisme et CAO 
Techniques et exemples 
de conception graphique 
P. Darnis 

J.-M. Van Thong 
Editions Edimicro 
Paris, 1984 

Broché, 192 pages 

Prix : 125 FF 


Guide de l'informatique 
individuelle 

Helen Varley 

et lan Graham 

Editions 

Hachette Informatique 
Paris, 1984 

Broché, 224 pages 

Prix : 99 FF 


Programmeurs : 


Le Basic en 30 heures 
Clive Prigmore 

Les éditions d’organisation 
Paris, 1984 

Broché, 272 pages 

Prix : 148 FF 


L'assembleur facile du 6809 
François Bernard 

Editions Eyrolles 

Paris, 1984 

Broché, 168 pages 

Prix: 89FF 


Pratique du 
micro-ordinateur Adam 
Henri Lilen 

Editions Radio 

Paris, 1984 

Broché, 176 pages 

Prix : 100 FF 


Programmer, c’est pas sorcier 
Gary W. Orwig 

et William S. Hodges 
Editions Belin 

Collection Modulo 

Paris, 1984 

Broché, 180 pages 

Prix : 140 FF 


: 1 
à vos claviers : 


Le concours de scénarios de logiciels éducatifs ouvert aux élè- 

ves, aux enseignants et aux clubs d’informatique de l’ensei- 
gnement secondaire public, c’est ce que « concocte » le ministère 
de l’Éducation nationale en liaison avec l’Encyclopédie Nationale 


des Sciences et Techniques. 


Le ministère n’a pas encore rendu publiques les modalités du 
concours mais l'Education Nationale prend la chose au sérieux. 
Elle débloquera quelque 300 000 francs de crédits pour les candi- 
dats qui, de plus, pourront, s’ils le souhaitent, disposer de micro- 


ordinateurs fournis par l’E.N. 


Les trois réalisations retenues par le jury final seront éditées. 


EE 


Dictionnaire de la 
micro-informatique 
Charles J. Sippl 
Traduit et adapté par 
Johanne de Luca 
Editions Belin 
Collection Modulo 
Paris, 1984 

Broché, 292 pages 
Prix : 295 FF 


Programmez vos jeux 
sur TI 99/4A 
François Abella 
Editions Sybex 

Paris, 1984 

Broché, 116 pages 
Prix : 78 FF 


Jeux graphiques sur Atmos 
David Chane-Hune 

et François Darbois 
Editions Edimicro 

Paris, 1984 

Broché, 186 pages 

Prix : 95 FF 


Choisir son micro-ordinateur 
Yvon Dargery 

Editions Cédic/Nathan 
Collection Micromonde 
Paris, 1984 

Broché, 128 pages 

Prix :35FF 


Choisir votre 
micro-ordinateur 
Ilya Virgatchik 
Editions Marabout 
Paris, 1984 
Broché, 288 pages 
Prix: 24FF 


Tours de Forth 
Marc Petremann 

et Michel Rousseau 
Editions Eyrolles 
Paris, 1984 
Broché, 184 pages 
Prix : 98 FF 


Activités avec le 
Commodore 64 

David Lawrence 
Editions 

Hachette Informatique 
Paris, 1984 

Broché, 190 pages 
Prix: 95FF 
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UNE AUTRE INFORMATIQUE 


HACUN connaît la numération binaire et ses x 

liens étroits avec nos ordinateurs. Le système 
ternaire dont nous allons évoquer l’utilisation en informatique 
nous est beaucoup moins 
familier, Il est assez 
séduisant pour l'esprit 
et c'est probablement 
plus qu'une curiosité 
mathématique. 


Il y a système ternaire et système Mellons-anus au lent Quant à 5, il s’écrira 1— — qui se 
ternaire. Celui auquel nous avons # e : décompose en +9—3— 1 ou, si l’on pré- 
songé est bien en base trois, comme son . Pour vous permettre de vous familia- | fère, +32- 3! 3° 
nom l'indique ‘ il s'écrit à l’aide de riser avec le système ternaire et sa noOta- 


| : tion, voici d’abord ses tables d’addition Ainsi, rencontré dans des expressions 
«tits » valant non pas 0,let2contrai- |, 4 nutHolicationr: comme « — À » où « B—C », le signe 
rement à ce que l’on aurait pu attendre, du tiret (« -— »), promu au rang de 
mais — 1,0 et +1, que nous transcrirons Addition «tit » s’interprète comme +(—1)X, 
par —,0 et 1 (lire : tiret, zéro et un). 0 exactement comme 2A vaut (+2) x A. 
C’est le choix de ces trois valeurs et la & cett ion trés naturelle suf 
notation particulière qui en découle qui =" _ fit ice tops or Le He re . : 
font l’originalité de ce système. 0 : D FORT POUR ARS 6 CEA 
l l'adoption de ce système ternaire rend 


obsolète la notion même de signe d’un 
Multiplication nombre, et conduit à redéfinir stricte- 
ment la soustraction comme une multi- 


+ 24 
Tit s'impose 0 1 
[4 
par forfait  — 
; 0 0 
0 CONVERSION 
« Tit », construit sur le modèle de bit, | La multiplication par « — » change tous DECIMAL 7 TÉRNAÏRE 
est une contraction de « ternary digit ». | les ! en — et réciproquement. Quant à 
Il s’est imposé par forfait, aucun la soustraction, c’est une multiplication |: CLS:estei= e :esç:1-"1".2s(2-" 
monosyllabe acceptable n'ayant pu être par « — » suivie d’une addition. 2 PRINT DECINAL €-> TERNAIRECRETURN s 
tiré d’expressions telles que chiffre ter- En guise de répétiteur, vous trouverez | Pt rame fervent pas 
ci-contre un court programme de conver- | 5 INFETTNE Dec imal" sg cEsDe ir DTRENS 


naire ou unité ternaire. Vive le tit, donc. 


sion destiné à faciliter votre apprentis- | © Ne nr tr 
Quelques exemples sans attendre, | sage. Il est limité aux entiers de — 32768 pete en 
pour mieux se fixer les idées ; les nom- à + 32767 dans le sens décimal/ternaire, = TE ee. . ADN ESS ENERTELSERUS 
bres de —4 à +4 s’écriront respective- mais pratiquement illimité dans l’autre | > | ; D3:G0T011 
ment : — — (prononcer « tiret-tiret »), | SENS. | 8 A+FINODS :Ts=28(8)+-TS 
—0 (prononcer «tiret-zéro »), —1 Écrit pour Canon X-07, il est assez | = D )- (4523 : IFDTHENS 


. ? Faci e à d’ : 5. | 18 INPUT'= en Ternai KE IK=CXS= TS) 
(« tiret-un »), 0, 1, 1— (« un-tiret »), facilement adaptable à d’autres maté | en fernaire 


? els. 1 IFKTHENPRINT EXACT E 
10 (« un-zéro »}), et 11 (« un-un »). : 12 PRINTIS "=", EL INEINPUTT 
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: ; 
Et je retiens un... 


Les deux carrés (2621432 
ont été choisis parce que 
maximum de retenues. 
série des additions. 


Ces dernières 


11 
LIT 
TLLTAT 
11111111 
1111111111 
111111111111 
11111111111111 
1111111111111111 
111111111111111111 
111111111M1111111111 
1111111111111111111111 
111111111111111111111111 
11111111111111111111111i11 
1111111111111111111111111t111 
111111111111111111111111111111 
11111111111111111111111111111111 
11H1111111111111111111111111111111 


11111111111111111] 
T11111111111111111 
LLIÉTLITILTITIATI 
111111111111111111 
ÉLTLALTPTIAITILEIT A 
111111111111111111 
111111111111111111 
ATLIILTITLILITI1111 
LALEALETTILITETILI 
111111111111111111 
111111111111111111 
111111111111111111 
111111111111111111 
111111111111111111 
111111111111111111 
111111114111111111 
111111111111111111 
111111111111111111 


2621843" 


en binaire 


11111111111111111 1000600000000000001 


Élévation au carré de 262143 
en binaire 


et 265720?) sont du même ordre de grandeur. Ils 
leur calcul (en binaire et en ternaire) conduit à un 


et je retiens un... 


forment un triangle au-dessus de la 


11 
TITTTI 
1111111111 
LTILELTEMITTLI 
111111111111111111 


111422121113 
1111111111])11 
111111111111 
VTTLTTILLT LA 
VETLELILIT IT 
EALELLEEITL TA 
111111111111 
LIL111111111 
111111111111 


265720? 
YLTITITLITIE rs 


111111111111 en ternaire 


11-11-1211 11 


Élévation au carré de 265720 


en ternaire 


plication par « — » (= — 1) suivie d’une 
addition. 

Avec la notion de signe sont ainsi 
balayées, bien entendu, les servitudes 
qui pesaient sur l'informatique binaire 
pour le stockage et la gestion du signe 
des nombres et exposants. 


Deuxième avantage, incontestable lui 
aussi, il faut beaucoup moins de tits en 
ternaire que de bits en binaire pour stoc- 
ker une même information. Il suffit, par 
exemple, de 16 tits pour écrire tout nom- 
bre compris entre —21523360 et 
+21523360 alors que l’on reste confiné 
entre — 32768 et + 32767 avec 16 bits. 


Un nombre de 14 chiffres significa- 
tifs en base 10 compris entre — 104 et 
+ 10* peut s’écrire sur 34 tits, contre 

© 56 bits (64 bits en décimal codé binaire). 
Avec 4 tits, d’autre part, on code 
81 caractères, un cinquième tit offrant 
162 caractères ou codes spéciaux supplé- 
mentaires : on obtient ainsi les 243 com- 
binaisons d’un « pentet », qui joue le 
rôle de l’octet traditionnel. Et l’on peut 
même coder sur 3 tits seulement de l’al- 
phabétique pur, limité aux 26 lettres et 
à l’espace. 


N° 6 -JANVIER/FÉVRIER 85 


Les tables d’opérations arithmétiques 
restent simples et l'avantage du ternaire 
devient écrasant dès qu’il s’agit de mul- 
tiplication. Élevons au carré deux nom- 
bres tout à fait comparables et qui 
s’écrivent chacun uniquement avec des 
1. Il faut en binaire 594 additions élé- 
mentaires comportant 306 reports de 
retenues pour calculer 2621432, contre 
192 additions et 72 retenues seulement 
pour 265720? en ternaire (voir l’enca- 
dré ci-dessus). 


La supériorité 


de ce ternaire 


On remarquera que, les deux fois, 
nous nous sommes placés dans les con- 
ditions les plus défavorables. Cela dit, 
et Chacun pourra le vérifier s’il veut, 
avec des valeurs quelconques, les annu- 
lations mutuelles de tits de valeur oppo- 
sée compensent la proportion plus fai- 
ble de zéros, et le rapport des volumes 


En 


Conversion décimal-ternaire 
L 
Valeur Valeur Valeur Valeur | 
|décimale ternaire | décimale ternaire| 
0 O 36 1100 
1 1 37 1101 
2 1- 38 111- 
3 10 39 1110 
4 11 40 1111 
5 1-- 41 1---. 
6 1-0 42 1---0 
7 1-1 43 1---1 
8 10 - 44 1--0- 
9 100 45 1 --00 
10 101 46 1 --01 
11 11- 47 1--1- 
12 110 48 1--10 
13 111 49 1--11 
14 1--- 50 1-0-- 
15 1--0 51 1-0-0 
16 1--1 52 1-0 -1 
17 1-0- 53 1-00 - 
18 1-00 54 1 -000 
19 1-01 55 1-001 
20 1-1- 56 1-01- 
21 1-10 57 1-010 
22 1-11 58 1-011 
23 10 -- 59 1-1 -- 
24 10 -0 60 1-1 -0 
25 10 -1 61 1-1-1 
26 100 - 62 1-10 - 
27 1000 63 1-100 
28 1001 64 1-101 
29 101 - 65 1-11- 
30 1010 66 1-110 
31 1011 67 1-111 
32 11-- 68 10 --- 
33 11-0 69 10 - -0 
34 11-1 70 10 --1 
35 110 - 


d'opérations élémentaires reste du 
même ordre. 


Au-delà des gains considérables à 
attendre en puissance de calcul, en capa- 
cité de stockage et en vitesse de trans- 
mission, la supériorité du ternaire s’af- 
firmerait aussi en accélérant nettement 
les opérations de tri et de recherche sur 
arborescence. Il favoriserait également 
l’éclosion d’une logique à trois voies : 
€ et >, ou encore VRAI, FAUX 
et INDÉCIS, plus souple et plus perfor- 
mante que la dichotomie binaire. 


Que faut-il pour adapter l’ordinateur 
au ternaire ? Essentiellement des puces 
de 3, 9et 27 tits à base de jonctions d’un 
type nouveau. On peut imaginer que les 
impulsions électriques passent dans un 
sens, dans l’autre, ou ne passent pas du 
tout. On peut imaginer aussi des micro- 
domaines magnétiques à trois états sta- 
bles : magnétisés dans un sens, dans 
l’autre, ou démagnétisés. 


Pour l'instant, bien sûr, il n'existe pas 
de machines ternaires. Mais qui peut 
jurer de ce que réserve l’avenir ? 


Pierre BARNOUIN 
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PETITE HISTOIRE DES LANGAGES 


DEUX LANGAGES 


PRO’ 


APL et PL/1 


ES années les plus riches de l’histoire des 

langages se situent probablement 
aux alentours des années 60. Fortran, Algol, Cobol 
sortirent vers cette époque. Avant l'aventure du 
Basic, au cours des années 62-63, deux « canards 
sauvages » virent le jour : APL et PL/1. Ils sont 
encore bien vivants, surtout le premier d’entre eux 
qui jouit d’un grand prestige auprès des 
scientifiques. Le second, en qui tous les espoirs 
furent placés, a connu jusqu'à nos jours une 
carrière commerciale honnête, certainement en 
deçà des possibilités dont on l'avait chargé. 


On ne se lève pas un beau matin 

en disant : tiens, si j’inventais un 
langage ? Le professeur canadien Ken- 
neth Eugene Iverson n’échappa nulle- 
ment à la règle. Dès 1956 — d’après une 
synthèse très documentée de Jean-Luc 
Stehlé — ce mathématicien d'Harvard, 
dans le cadre de recherches sur la théo- 
rie des algorithmes, cherchait à dévelop- 
per des notations générales et non ambi- 
guës pour exprimer ses idées, notam- 
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ment sur les problèmes de tris. Il en 
publia une première version en 1960 en 
rejoignant le centre de recherches Tho- 
mas J. Watson à Yorktown Heights, 
deux ans avant d’écrire son livre fonda- 
mental À Programming Language (chez 
Wiley and Sons). 1962 est donc consi- 
dérée comme la date de naissance offi- 
cielle d’APL, bien que la première 
implantation, due à Arthur Hellerman, 
ne date que de 1963 (sur un IBM 1620). 


Il ne s’agissait donc, au départ, que 
d’un outil mathématique pour faciliter 
la communication entre hommes de 
sciences, très bien adapté à la descrip- 
tion et l’analyse formelle d'ordinateurs. 


| Célèbre surtout 


| dans les universités 


Jean-Luc Stehlé indique la date de 
novembre 1966 comme étant celle d’une 
certaine normalisation du langage dans 
une forme très voisine de ses versions 
actuelles — qui bénéficièrent d’un enri- 
chissement notable en 1973 avec la 
notion de variable partagée. Il fallut 
apporter des modifications assez nom- 
breuses aux symboles d’Iverson pour les 
adapter aux claviers usuels des termi- 
naux mais, pour le fond, c’est toujours 
l’esprit de ses notations qui subsiste. 
Certains auteurs regrettent qu'aucune 
norme ne soit venue méttre un peu d’or- 
dre dans des implantations devenues 
aujourd’hui assez anarchiques. 


Le fumet très universitaire qui se 
dégage d’APL le rendit tout de suite 
célèbre dans son milieu d’origine, mais 
maintenant il est même utilisé pour des 
manipulations de fichiers et de bases de 
données, comme d’autres langages pra- 
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| 
| 


tiqués par l'informatique profession- 
nelle. Tous les commentateurs d’'APL 
soulignent malignement qu’il fut long- 
temps l’objet de véritables guerres civi- 
les, opposant laudateurs inconditionnels 
et adversaires impitoyables, mais il sem- 
ble bien aujourd’hui qu’un certain con- 
sensus lui reconnaisse enfin, au-delà 
d’une originalité évidente, des qualités 
assez exceptionnelles. 


S’il est vrai que les applications 
d’APL hors université ne sont pas aussi 
nombreuses que pour Cobol ou PL/1, 
On peut citer par exemple en France le 
cas de Citroën et, ce qui est sans doute 
plus frappant, l’utilisation qui en fut 
faite par les studios Walt Disney pour 
la réalisation d’une partie des « nouvel- 
les images » du film Tron.. Les implan- 
tations sur ordinateur individuel sont 
“encore assez peu nombreuses : à côté 
d’une version « tiny » sur TRS-80, il 
faut surtout remarquer les versions 
adaptées aux différents PC d’IBM (nais- 
sance oblige), un interpréteur moyen 
exigeant souvent près d’une centaine de 
Koctets (ce qui le réservait plutôt 
jusqu’à présent aux minis). L'évolution 
des matériels devrait changer cet état de 
choses, surtout compte tenu de l’inté- 
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Deux « canards sauvages » 
parmi les autres langages 


rêt pédagogique que présente ce langage 
pour les scientifiques. 

La position d’APL par rapport aux 
champions actuels de la modularité 
(« famille » Pascal, en particulier) est 
assez ambiguë. Contrairement à eux, il 
n'est pas compilé, mais interprété, et 
Surtout très fortement interactif. Il n’est 
besoin de déclarer ni variables, ni 
dimensions de tableaux. Il n’a pas de 
mots réservés. Une Caractéristique 
essentielle, qui explique son succès chez 
les mathématiciens purs et appliqués, 
c'est qu’on y traite des vecteurs, des 
nombres complexes et des matrices aussi 
simplement — au moins au niveau de 
la programmation, cela se payant par 
une lenteur d’exécution parfois dérou- 
tante — que des nombres ou des chat- 
nes de caractères. 


Sa principale qualité est sans aucun 
doute son extrême concision, source de 
fiabilité évidente mais hélas aussi res- 
ponsable d’une relecture très pénible 
(Cas toujours cité par les APLophiles, 
Caractéristique de l’art avec lequel les 
notations d’Iverson font simple quand 
le fond des choses n’est pas compliqué : 
un programme de recherche de nombres 
Premiers peut tenir en une seule instruc- 


: 


tion — voir par exemple la page 63 du 
livre de Daniel-Jean David, Le langage 
APL, édité par Editests). 


Donnons deux exemples minuscules, 
mais significatifs : 
+ pour calculer une somme de nombres, 
une ligne du type +/ 10 11 12 13 14 15 
donne automatiquement le total 75 : 
+ POur garnir un tableau à une dimen- 
sion X par les dix-huit premiers entiers 
supérieurs à 32, il suffit d’écrire X [32 
+ i18] qui équivaut à la boucle classi- 
que du Basic, FOR I = 0 TO 17 THEN 
X()=33+I:NEXTI (la lettre « i » 
est en fait une minuscule grecque ; APL 
adore cet alphabet auquel il emprunte 
également le rh6 et le delta : une rémi- 
niscence légèrement snob et très « Ivy 
League »). 


Langage conduisant à des listes élé- 
gantes maïs bien trop souvent herméti- 
ques, abhorrées par les censeurs vigi- 
lants à la Wirth, APL est pourtant très 
modulaire à sa façon, ce qui lui donne 
un air de modernité surprenant pour son 
âge. Il manipule essentiellement des 
fonctions (pas de GOSUB) que l’on peut 
mettre au point et utiliser séparément : 
« les fonctions primitives sont en quel- 
que sorte les mots du langage » (Ber- 
nard Legrand, Apprendre et appliquer 
le langage APL, édité par Masson). 
Chaque programmeur crée à volonté ses 
propres fonctions, un peu comme en 
LISP, qui étendent considérablement la 
facilité d'écriture des instructions : il 
existe des opérateurs entre fonctions qui 
définissent une nouvelle fonction, 
comme un signe + crée un nombre x + 
y à partir de deux nombres x et y. I y 
a très peu de boucles, dont la fausse sim- 
plicité transforme parfois en cauchemar 
la maintenance de 300 petites lignes de 
Basic. 


. Gagner 


_des parenthèses 


La syntaxe est réduite à un petit nom- 
bre de règles. L'évaluation des fonctions 
se fait de droite à gauche, ce qui sur- 
prend souvent le débutant ; ce n’est 
Pourtant qu’une (bonne) habitude à 
prendre, un peu voisine des « représen- 
tations polonaises » et qui fait gagner 
parfois bien des parenthèses. 

Maïs c’est là le type d’argument qui 
Provoque la fureur des inconditionnels 
anti-APL : ils prétendent non sans bon 
sens que ce « plus » est souvent un 
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PETITE HISTOIRE DES LANGAGES 


DEUX LANGAGES « PRO » APL ET PL/1 


« moins » aux conséquences parfois 
catastrophiques s’il cause une erreur 
pratiquement impossible à déceler. La 
simplicité des règles, combattue par la 
complexité des notations, fait que le 
temps d’apprentissage d’APL varie sui- 
vant les individus : chez les matheux, ça 
va en général très vite. 

Qualités et défauts d’APL viennent, 
en grande partie, du fait qu’il est issu 
de la tête d’un seul homme. Ils sont 
assez difficiles à évaluer en toute objec- 
tivité ; les années à venir, qui verront 
probablement un développement nota- 
ble de l’utilisation de ce langage, per- 
mettront de faire le point. Aux deux 
ouvrages signalés au hasard des lignes 
de cette brève présentation, ajoutons 
Introduction à APL de S. Pommier 
chez Dunod et, pour les Tandyistes, 
L'APL sur TRS-80 de Claude Nowa- 
kowski aux éditions du PSI. 

Si APL signifie « un langage de pro- 
grammation », le sigle PL/1 renvoie 
plus orgueilleusement au langage de 
programmation « numéro | ». Quasi- 
ment contemporain d’APL, il résulta, 
comme Cobol ou Algol, de la création 
en septembre 1963 d’un groupe de tra- 
vail, le Share Fortran Committee, né 
d’uneinitiative commune d'IBM et d’un 
groupe d'usagers. Il était chargé de con- 
cevoir un produit plus puissant, capa- 
ble en particulier de traiter correctement 
des problèmes de gestion sans perdre la 
richesse scientifique de l’ancêtre. Dès 
mars 1964 naissait le NPL (New Pro- 
gramming Language) bientôt rebaptisé 
PL/1, à la demande du National Physi- 
cal Laboratory britannique. 


(ENG PHTDET 
_ CAFE NOR 
| CONFITURE 
| oASTs 
GRILLES 
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La bible de PL/1, longtemps le seul 
ouvrage disponible en France sur le 
sujet dès 1971 (Le langage PL/1, Mar- 
cus Dornbusch, chez Dunod) résume 
ainsi les buts de ses créateurs : 

e être avantageusement comparable à 
Fortran, Algol, Cobol et Assembleur 
dans tout ce que ces langages ont d’effi- 
cace ; 

e être modulaire, c’est-à-dire ici, utili- 
sable par tout programmeur spécialisé 
dans son propre domaine de travail 
même s’il en ignore les autres possibi- 
lités ; 

° pouvoir s'enrichir par l’addition de 
fonctions nouvelles ; 

< contenir en lui-même des outils de 
mise au point. 


La référence à Algol conduisit en par- 
ticulier à une assez bonne structuration 
du langage, proche de ce qui fit le suc- 
cès de Pascal. Même une gestion des 
incidents (ou exceptions), permettant à 
un programme de tourner en dépit d’un 
éventuel dépassement de capacité par 
exemple, reconnue ensuite comme fon- 
damentale par les réalisateurs d'ADA, 
figure déjà dans PL/1. De Fortran, il 
gardait l’aptitude scientifique, les 
tableaux, la notion de format, les bou- 
cles, enrichissant les procédures de sous- 
programmes et fonctions, alors que 


Cobol, lui, fournissait un maniement | 


commode des chaînes de caractères et 
des fichiers. Il permet, dans une large 
mesure, d’éviter le recours à des routi- 
nes directes en machine. 

Le démarrage de PL/1 fut malaisé, 
d’une part parce que le premier compi- 
lateur de 1966 était assez médiocre et 
semblait trop concis pour être vraiment 
efficace, d’autre part parce que l’ombre 
de la puissance de ses géniteurs effrayait 
ses utilisateurs potentiels. Quoique ses 
problèmes de jeunesse aient été grande- 
ment réglés depuis, la montée de systè- 
mes plus « modernes », sa richesse et la 
complexité qui en résulte en ont restreint 
l'application. Bien qu’il ait été. voulu 
comme le langage de la fameuse série 
360, PL/1 n’a pas répondu entièrement 
à l’attente commerciale de ses 
concepteurs. 

Aujourd’hui encore, il est pourtant 


+ toujours largement présent dans les sec- 


teurs de l’informatique professionnelle, 
dans des configurations assez riches 
pour le supporter. Sa puissance fait qu’il 
n’est pas étonnant qu’on n’en trouve 
pas de version pour micro-ordinateur. 
En tant que première tentative de défi- 
nition d’un langage vraiment universel, 
son importance théorique ne peut être 
surestimée. D’une certaine manière, la 
définition d’ADA n’aurait pu être entre- 
prise s’il n’avait pas existé ; presque tout 
ce qui y figure en dehors du noyau prin- 
cipal (évidemment issu de Pascal) sort 
pratiquement de PL/1: c’est une 
preuve manifeste de qualité. 
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ÉDITEUR 


L'EXEMPLE 


D'UNE BONNE CORRECTION 


U NE partie non négligeable 
de la programmation consiste à corriger, 
mettre au point, améliorer les lignes 


que l'on à pondues,. 


L'ensemble des fonctions qui permettent d'apporter 
les modifications désirées forment l'éditeur. 

Ce mois-ci, nous examinerons celui du PC-1251. 
Comme nous allons le voir, il est commode 

et très bien conçu : c'est un plaisir. 


Avant de corriger des fautes 

dans un programme, il faut, évi- 
demment, les y introduire. Ordinaire- 
ment, cela tient de la génération spon- 
tanée : les erreurs apparaissent à l'insu 
du programmeur. Pour les besoins de 
l'exemple (une fois n’est pas coutume), 
nous les commettrons de façon délibé- 
rée. 

Dans une liste pour PC-1251, nous 
écrirons donc la ligne: 250 IMPT 
NOMBRE SUIVANT ? »:5, ce qui 
demande 32 pressions de touche si la 
machine est déjà en mode PRO, mode 
où l’on peut introduire, lister ou corri- 
ger un programme. 


Si le PC-1251 se trouve en mode 
RUN (exécution d’un programme ou 
calculs au clavier), on doit d’abord 
déplacer le commutateur sur la position 
PRO : une manipulation de plus, soit 
un total de 33 actions. Ce nombre tient 
compte des pressions sur la touche 
SHIFT et de l’appui final sur ENTER 
qui valide la ligne, c’est-à-dire l’inscrit 
en mémoire. 


La ligne que nous voulons obtenir 
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est : 250 INPUT « PREMIER NOM- 
BRE ? » ; A. Pour entrer cette ligne, il 
faut, selon la façon dont on s’y prend, 
entre 30 et 33 pressions de touche si 
l'ordinateur est en mode PRO. Avec le 
Basic Sharp, en effet, l’ordre INPUT 
peut être dactylographié 1., IN., INP., 
INPU. ou en toutes lettres, INPUT, 
soit 2, 3, 4 ou 5 frappes. 


Notre exercice va donc consister à 
passer de 250 IMPT « NOMBRE SUI- 
VANT ?»; S à 250 INPUT « PRE- 
MIER NOMBRE ? » : A. 


Les cinq touches 
essentielles à la 
correction 


Il y a plusieurs façons de procéder. 
La première que nous allons décrire 
n’est pas, et de loin, la meilleure, mais 
elle a le mérite d'illustrer la plupart des 
fonctions d’édition disponibles sur la 
machine. 


. Un carré noir 


| sur la faute 


Nous commençons par lancer le pro- 
gramme (en mode RUN): RUN 
ENTER. Instantanément, l'ordinateur 
affiche ERROR 9 IN 250. Une pression 
sur la touche + affiche la ligne fautive, 
un pavé noir clignotant à l'endroit où 
l’erreur a été dépistée. Dans le cas pré- 
sent, le pavé clignote sur le I de IMPT. 
Dès que l’on relâche la touche 4, le 
message d’erreur réapparaît, Cette faci- 
lité, très appréciable, se retrouve sur les 
poquettes Sharp 1211, 1212, 1245, etc. 

Pour corriger la ligne, nous devons 
maintenant passer en mode PRO. Une 
nouvelle pression sur 4 et la ligne 250 
revient (pavé clignotant au même 
endroit). Cette fois-ci, la ligne demeure 
à l’affichage. 

Dans un premier temps, nous allons 
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ÉDITEUR 


L'EXEMPLE D'UNE BONNE CORRECTION 


transformer IMPT en INPUT. Une 
pression sur la touche B et le pavé se 
place sur M. On frappe simplement la 
lettre N qui remplace aussitôt le M. 
Dans le même temps, le pavé clignotant 
s’est décalé d’une position vers la 
droite, sur la lettre P. On frappe P et le 
pavé clignote alors sur la lettre sui- 
vante, T. Pour insérer à cet endroit le 
U manquant, trois touches : SHIFT 
INS (un rectangle vide apparaît entre 
INP et T) et U. 


La ligne est devenue : 250 INPUT 
« NOMBRE SUIVANT ? »;58. 


Une correction 


plus rapide 


Depuis le début de l’opération, on a 
pressé 7 touches. Nous allons mainte- 
nant insérer PREMIER et un espace 
devant NOMBRE, détruire SUIVANT 
et remplacer S par À à la fin de la 
ligne. 


On déplace donc le pavé clignotant 
jusqu’au N de NOMBRE (2 fois), on 
se ménage 8 espaces libres pour l’inser- 
tion (8 fois SHIFT suivi de INS) et l’on 
frappe PREMIER [1 (le signe [ ] repré- 
sente un espace). 


Après 33 pressions de touche, la 
ligne est devenue : 250 INPUT « PRE 
MIER NOMBRE SUIVANT ? »,8S et 
le pavé clignote encore sur le N de 
NOMBRE. On le déplace jusqu’au S de 
SUIVANT (7 fois B), 
efface, ainsi que l’espace qui le suit 
(SHIFT DEL, répété 8 fois). 

Depuis le début de la correction, on 
a déjà pressé 56 touches... Notre ligne 
est devenue : 250 INPUT « PREMIER 
NOMBRE ? »; 8. 


Reste à remplacer S par A. Trois fois 
», et le pavé clignote sur S. On frappe 
A, puis ENTER. La ligne 250 est 
désormais bien celle que l’on voulait : 
250 INPUT « PREMIER NOM 
BRE ? » ; A. 


Il nous aura fallu presser plus de 60 
touches pour apporter les modifications 
prévues. Si l’on n’avait pas mis à profit 
les facilités de l'éditeur du 1251 et si 
l’on s'était « bêtement » contenté de 
retaper la ligne en entier, une trentaine 
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mot que l’on: 


de touches auraient suffi. Faut-il en 
conclure que les possibilités d’insertion, 
de destruction, de remplacement par 
recouvrement ne sont que des gadgets 
inutiles ? Certainement pas ! 


Deux remarques s'imposent ici. Tout 
d’abord, la ligne à corriger (exemple 
oblige) est spécialement truffée 
d'erreurs. Ensuite, et surtout, nous 
avons effectué les corrections de la 
façon la moins économique possible. 
Cela nous a permis de passer en revue 
la plupart des fonctions d'édition. Mais 
nous allons décrire maintenant une 
deuxième façon de faire plus rapide. 


Nous repartons donc de notre ligne 
erronée : 250 IMPT « NOMBRE SUI- 
VANT ?»;8, 

Après le message d’erreur, nous pas- 
sons en mode PRO. Une pression sur t 
et la ligne est affichée, pavé noir cli- 
gnotant sur le [ d’'IMPT. On tape alors 
I. [}] :: puis PREMIER NOMBRE, 
bp» cet À ENTER. La ligne a été 
corrigée en 27 pressions de touche. 


A cela s'ajoute que les quatre tou- 
ches fléchées (déplacement horizontal à 
Pintérieur d’une ligne, ou passage 
d’une ligne à l’autre) agissent aussi en 
répétition automatique. Il n’est donc 
pas indispensable d'appuyer 4 fois de 
suite sur b pour déplacer le curseur de 
4 positions vers la droite. Une pression 
prolongée sur la même touche produit 
le même effet, à condition que l’on ait 
suffisamment de réflexes pour relever le 
doigt au bon moment. Avec un peu 
d’entraînement, on y parvient presque 
à tous les coups. Si l’on prend en 
compte cette possibilité, notre ligne 250 


ON CONSEILS, 
N'ABUSEZ PAS, \ 
TROP DU PAVÉ 
W O!R #1 


fp 


Se bee pe (u 


cest corrigée en 24 pressions de touche, 
soit 6 de moins que pour la réécrire en 
entier. 

Répétons que l’exemple a été retenu 
parce qu’il permettait d'illustrer la plu- 
part des fonctions dites d’édition : rem- 
placement, suppression, insertion. Le 
plus souvent, quand il faut corriger une 
ligne de Basic, les modifications à 
apporter sont beaucoup plus légères et 
l’on a tout intérêt à ne pas retaper la 
ligne en entier. On s'aperçoit alors que 
le PC-1251 est très agréable d'emploi. 


Si l'insertion (SHIFT INS) et la sup- 
pression d’un caractère (SHIFT DEL) 
agissaient en répétition automatique, 
l’ensemble serait presque parfait. Les 
cinq touches que l’on utilise sont judi- 
cieusement rassemblées, côte à côte, sur 
la première rangée du clavier. 


Souplesse et 


_ simplicité cui 


Pour finir, remarquons que la dupli- 
cation des lignes de programme est 
obtenue très simplement. On positionne 
le curseur sur l’ancien numéro (250 
dans notre exemple), on y substitue le 
nouveau (disons 965) et l’on presse sur 
ENTER. Il n’en faut pas plus pour 
obtenir une nouvelle ligne 965$ identique 
à la ligne 250. 

Souplesse et simplicité d'emploi sont, 
en résumé, les deux points forts de 
l'éditeur des PC-1211, 1212, 1245, 
1251, etc. Certaines machines plus 
encombrantes sont, de ce point de vue, 
moins bien loties. 


Je vous invite d’ailleurs à regarder 
quelles sont, en matière d'édition des 
programmes, les performances du 
matériel que vous pratiquez. Entrez 
donc la ligne 250 IMPT « NOMBRE 
SUIVANT ? »: S et administrez-lui 
une bonne correction pour obtenir 250 
INPUT « PREMIER NOMBRE ? » ; 
A. 


Comptez le nombre de touches que 
vous devez frapper pour mener à bien 
cette opération... 


Jean DRANO 
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GRAPHISME 


ROSACES 


EN TOUT GENRE 


T° qu'il est, le programme vous propose cinq 
dessins construits à partir de courbes. II les 
calcule et les trace d’abord lentement, l’une après 

l'autre. Puis il passe à la vitesse supérieure, 

et l'écran de votre TRS s’anime. Mais vous pouvez 

aussi définir vos propres courbes... 


L'association des calculs et du 
graphisme est à la base de ce que 
l’on appelle maintenant l’art informa- 
tique. Si l’on sait limiter sagement ses 
ambitions dans ce domaine, on obtient 
rapidement d’assez jolis résultats. Le 
Court programme présenté ici est un bon 
- exemple de ce qu’on peut réaliser en 
basse résolution sur un TRS-80 modèle 
1 ou 3. Le caractère relativement stan- 
dard du Basic employé devrait permet- 
tre une adaptation facile sur de nom- 
breuses autres machines. 

Dans un premier temps, cinq dessins 
constitués par des courbes plus ou 
moins simples sont tracés à l’écran et 
mémorisés. Ensuite, les courbes mémo- 
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risées s’enroulent et se déroulent en 
vitesse accélérée de manière cyclique. 
Pour mettre fin au spectacle, BREAK, 
RESET ou OFF. 


Comme on le verra, les courbes se sui- 


Re 


vent et ne se ressemblent pas ; les 
matheux y reconnaîtront un cercle, une 
ellipse, une hypocycloïde, une astéroïde, 
etc., selon la valeur des quatre paramè- 
tres U, V, B et A lus dans les lignes de 
DATA. 


Plusieurs courbes concentriques sont 
tracées (leur nombre dépend de la valeur 
des trois autres paramètres Z1, Z2 et 
Z3). Lorsque les coordonnées X ou Y 
sont en dehors du cadre, le tracé de la 
courbe se poursuit à partir du côté 
opposé (lignes 90 et 100). 


Une courbe 


en deux temps 


Dans la première phase de l’exécution 
du programme, le tracé de la courbe est 
lent : environ quatre points par 
seconde. La complexité des calculs en 
est la cause. Mais il n’en va pas de même 
par la suite. En effet, les coordonnées 
de chaque point sont sauvées dans un 
tableau AD (NP) (NP étant le nombre 
de points) indexé par le tableau DE 
(ND). La variable ND contient le nom- 
bre de dessins, de sorte qu’il devient 
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possible de redessiner à grande vitesse 
(50 points par seconde) les courbes 
mémorisées. L'animation de l’écran est 
alors étonnante. 


On notera, à la ligne 120, l'astuce uti- 


Des chiffres et des dessins 


lisée pour mémoriser dans une seule 
variable entière les coordonnées X et Y 
d’un point et, aux lignes 240 et 270, la 
méthode de restitution de ces deux va- 
leurs. 


En développant un peu le pro- 
gramme, il vous est loisible de sauver 
sur disque ou cassette la variable ND et 
les tableaux entiers DE (ND) et AD 
(NP) pour constituer une bibliothèque 
de dessins originaux, car avec un peu 
d’imagination, vous pouvez aussi modi- 
fier les paramètres qui déterminent les 
courbes à tracer. 


Roger BROUSMICHE 


Programme pour TRS-80 modèle 1 ou 3, 16 Ko 


Auteur Roger Brousmiche 
Copyright LIST et l’auteur 


L *? DES CHIFFRES ET 
& ? CONFIGURATION TY 
3 ? ROGER BROLISMICHE 
4 ? 

iQ #4 INITIALISA 
20 CLS : CLEAR SQ : DEFI 
20 U=Q : V=Q 3 E=Q : A=0 
48 DIM AD(E7S@),DEC10) ? 
o0 ” +4 COMPOSER DE 


EQ READ LU, V,B, A 21, 223 ZE 


S DESSINS 


DES DESSINS 
PE: MODELE 1 OÙ 3, 
Q4/EZ 


1EK 


TION ox 

NT A-Y 5 ZP=ATNCIIHE 
: Zi=Q : ZE<0 : Z1=0 
1B DESGSINS; 
Hi 

5: IF 22-9999 THEN =:0 


D'un Basic à l’autre 


Les instructions graphiques diffèrent 
très souvent d’un Basic à l’autre. Si votre 
machine n’est pas un TRS-80, voilà ce 
qu'il vous faut savoir pour transposer le 
programme. 

Sur les modèles 1 et 3, les trois princi- 
pales instructions à retenir ici sont : 

e SET : allumer un point (en fait un rec- 
tangle) ; 

° RESET : éteindre un point ; 

e POINT : tester si un point est ou non 
allumé. 

Ces trois instructions sont toujours sui- 
vies de deux paramètres x et y qui dési- 
gnent respectivement la ligne et la 
colonne du point choisi. Les lignes sont 
numérotées de 0 à 47, et les colonnes de 
0 à 127, le point de coordonnées 0,0 se 
trouvant en haut et à gauche de l'écran. 
Ainsi, Set (15, 86) allume le rectangle à 
l'intersection de la 16° ligne et de la 87° 
colonne. 

Enfin, deux rectangles contigus for- 
ment un carré. 


6750 POINTS MAX. 


78 CLS : FOR Z=71 TD ZE STEP Z3 : FOR 29 = @ TO 2P STEP 
80 X=2#54#CO0SCLUHZ@ TEE. S 5 Ve ZHESEGINCOV#ZD)+B+ES. S 
90 IF X)117 THEN X=X-108 ELSE IF X<9 THEN X=X+108 


ZP/A 


100 IF Y)47 THEN Y=Y-44 ELSE IF Y<I THEN Y=Y+44 

110 NP=NP+1 : GETEX, Yi 

120 ADINPI=ZSE#Y+X 5 NEXT 20,7 5 ND=ND+1 * DECND) =NP 

120 FOR I=1 TO 1000 : NEXT :GOTD E6EQ 

148 ” +4 DATA DESSINS ### 

150 DATE 1, 1, 1, 161 .7, . 025, —. 05 

160 DATA 1 1: Sr SO: Er Es —i 

170 DATA 1: 1: Z, 16 sr «lr —. 05 

180 DATA 3%, 4, %, 1200, 1.11 1,1, | 


DATA GS: 7, 3, 1700, . 3; er 
DATA @, @, &@, @, @, @: 
el ? rt  DESSINER  #4% 
220 FOR I=i TO ND 

CLS : FOR J=DECI-i)+1 TO DECI) 
SETCADEJ) AND ESS; ADCJ)/256) à: 
FOR J=i TO 1000 : NEXT J 

FOR J=DECI-1)+1 TO DECI) 

RESET CADEJY AND #55: ADCJI/256) à: 
NEXT I : GOTO 20 


NEXT J 


NEXT J 
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LES COUPS D'ŒIL DE LIST 


RE RE 


GAS-KIT 64 


DESSIN ET MUSIQUE 
SUR COMMODORE 64 


RAPHISMES et sons ne sont pas les points forts 
du Basic Commodore 64. Pour accéder à ces 
domaines cachés, il faut un logiciel spécialisé, 
Gas-Kit 64 remplit son rôle : c’est un « kit » 
destiné aux Graphismes, Animation et Sons, 
comme son nom l'indique... 


Gas-Kit 64, logiciel édité par 

Anirog et distribué en France par 
Infogrames, fait partie de ces utilitaires 
« créatifs » dont la nécessité se fait sen- 
tir un jour ou l’autre. 


Si le titre peut paraître étrange, il ren- 
seigne (relativement !) sur les fonctions 
du logiciel : Gas-Kit 64 est donc un kit 
destiné aux Graphics, Animation et 
- Sounds (en anglais, mais faut-il tra- 
duire ?), sur C.64. 


Voilà qui semble intéressant puisque 
d’un seul coup d’un seul, nos yeux et 
nos oreilles vont pouvoir — peut-être ! 
— être charmés. Voyons au prix de 
quels efforts. 


La pochette plastique joliment déco- 
rée, qui s’ouvre comme un livre, ren- 
ferme une cassette douillettement nichée 
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dans l’alvéole prévue à cet effet, à l’abri 
d’un manuel d'instructions qui promet 
d’être passionnant. Ouvrons-le d’une 
main fébrile. 


Alors, l’angoisse nous étreint de son 
bras glacé. 


Qu'est-ce à dire ? Un logiciel vendu 
en France, avec une notice en anglais ? 
Ciel ! Voici donc 30 pages d’écriture 
fine en dialecte grand-breton.. Mais 
qu’ai-je fait de mon dictionnaire ? Bon, 
pas de dictionnaire dans mon environ- 


I 


nement proche ; je joue le jeu : charge- 
ment immédiat du logiciel. 


L’indication « turbo » sur le support 
magnétique laisse présager d’une vitesse 
de chargement confortable (mon ma- 
gnétophone est-il bien réglé ?). Mais 
cette cassette a deux faces : cruel 
dilemme ! J’opte pour celle dont le titre 
est Show-Animation… 


Après quelques instants de patience, 
le programme démarre seul, et ce que 
j'ai choisi à pile ou face apparaît à 
l’écran. Par chance, c’est un pro- 
gramme de démonstration ! Une image 
haute résolution (champêtre à souhait) 
s’affiche en même temps que quelques 
commentaires explicatifs (toujours en 
anglais). Quelques mouvements de 
lutins (sprites) animent le paysage, le 
tout ponctué par des séquences musica- 
les. La démonstration graphique s’ache- 
vant en deux minutes environ, une 
démonstration musicale démarre, après 
changement du graphisme à l’écran. 


L’aspect sonore de la démonstration 
est plus engageant que l’aspect graphi- 
que. La musique rend de beaux sons, 
tandis que les images fournies sont ter- 
nes et manquent de détails. L'animation 
des lutins semble par contre pleine de 
promesses. 


Tous les messages et commentaires 
sont évidemment en anglais. Mon 
appréciation : sept sur dix. Le dernier 
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LES COUPS D'ŒIL DE LIST 


GAS-KIT 64 DESSIN ET MUSIQUE 


message invite l’utilisateur à retourner 
la cassette après l’avoir rembobinée, 
pour charger les logiciels de l’autre face. 
Je m’exécute donc. 


Pour la création 


graphique 


Le premier programme chargé porte 
le nom d’Artkit. Sa présentation indi- 
que qu’il s’agit d’un logiciel de création 
graphique. Toujours sans consulter la 
notice, je tente de comprendre. Un 
menu de huit fonctions permet un choix 
facile avec l’aide du clavier. Je choisis 
d’abord la fonction HELP, ce qui me 
permet d’apprendre les fonctionnalités 
nouvellement dévolues aux diverses tou- 
ches, et m'indique que l’usage de la 
manette de jeux (ou joystick) est auto- 
risé. J’ai enfin retrouvé mon diction- 
naïire : il va s’avérer très utile. 

L'option CREATE fait réapparaître 
l’image de titre, que je m’empresse d’ef- 
facer en sélectionnant ERASE (‘‘You 
really want to erase (y/n)?’’ - Yes, ves, 
réponds-je). L'écran devient blanc, avec 
un point foncé au centre. Il est en posi- 
tion PENCIL. Les déplacements se font 
facilement, en laissant ou non une trace, 
avec les touches ou le « joystick ». Dif- 
ficile tout de même de tracer des cour- 
bes régulières. Les lignes droites se des- 
sinent sans problème. Une curiosité : le 
tracé des cercles définis à partir de 


GsEl) 
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valeurs numériques spécifiées par l’uti- 
lisateur, rayon et portion angulaire de 
circonférence. Inutile de dire que le 
résultat est rarement celui escompté... 


Les couleurs ne sont pas vraiment 
faciles à manipuler : remplissages dif- 
ficiles, précision insuffisante du mode 
BRUSH dont la taille est celle d’un pavé 


Moi PAS SAUVAGE! Moi SUPER BRANCH 

MOI_ Al FAIT PROGRAMME _SUR LANGAGE 

ANIMAUX ! MOT SUPER ÉQUIFE 7 
NON 7 


see | 


E se) | 


= 


Une image 
haute résolution, 
champêtre à souhait 


d’écran.. Un entraînement sérieux sem- 
ble indispensable. 


La fonction SPRITE est plus intéres- 
sante et permet la création facile de 
lutins. Les fonctions SAVE et LOAD 
sauvegardent sur cassette et chargent les 
graphismes ainsi créés. Appréciation : 
six sur dix, je suis sévère. 


JXS DONC, Tu M'AS DÉRANGÉ DE 
MON S ÉTOILES RoUR ME FAIRE 
DE L'ÉPATE ANEC UN MATÉRI 
L'AGEDE PIERRE Le. 
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Le second programme sur cette face 
de la cassette s’appelle Demo ; le sui- 
vant a pour titre Democ. Ne pouvant en 
découvrir l’utilité, je me vois obligé de 
consulter la notice d’utilisation. Heu- 
reusement, je n’ignore pas tout de la 
langue de Shakespeare... Mon diction- 
naire et mes nraigres connaissances me 
permettent d’extraire de ce livret touffu 
les informations indispensables. 


Les manipulations ne sont pas vrai- 
ment simples. La première page du 
livret contient des « revised instruc- 
tions » qui indiquent à l’utilisateur les 
actions à entreprendre pour recopier 
(sur deux cassettes réservées à cet usage) 
les éléments fondamentaux du système 
Gas-Kit. 


Meilleur en musique 


qu'en dessin 


Un tel logiciel aurait beaucoup gagné 
à être utilisable sur disquette. Les pro- 
grammes Demo et Democ doivent être 
chargés à partir d’Artkit. Ils présentent 
la même image champêtre, haute réso- 
lution, que celle du Show rencontré pré- 
cédemment. 


J'ai omis d’essayer la fonction dite 
SEQUENCE CONTROL du même 
Artkit. L'essai, dirigé par la précieuse 
notice, est concluant. Cette fonction 
autorise le tracé « à répétition » de 
motifs définis par une chaîne de carac- 
tères. 


Avec le quatrième et dernier pro- 
gramme de la cassette, Composer, vous 
pourrez créer des séquences musicales 
complètes. Le même système de menu 
ouvre un éventail de huit fonctions. 
PLAY permet de jouer après avoir 
sélectionné les diverses caractéristiques 
musicales de l’instrament à imiter. Les 
touches du clavier simulent celles d’un 
piano, le tout sur deux octaves. 


La séquence musicale jouée sur le cla- 
vier est mémorisée intégralement. 
REPLAY permet donc de la réécouter, 
en modifiant au besoin quelques para- 
mètres (hauteur, timbre, vitesse, etc.). 

STORE permet un stockage protégé 
en mémoire, avec un titre quelconque. 
Un catalogue est alors remis à jour ; il 
permet ensuite, grâce à FETCH, de 
choisir un morceau qui sera rejoué. 

APPEND rassemble plusieurs titres 
en un seul dans la mémoire protégée. 

WRITE et LOAD permettent un 
stockage et une récupération aisés sur 
cassette. 


Cette partie de Gas-Kit est intéres- 
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sante et bien plus facile d'emploi que la 
partie graphisme : huit sur dix. 


Artkit et 
mémoire, lorsqu’on les quitte en utili- 
sant EXIT, une intéressante extension 
au Basic du C.64. En effet, plus de vingt 
instructions nouvelles deviennent dispo- 
nibles, dont la caractéristique commune 
est de débuter par un « @ ». 


Composer laissent en 


Cet ensemble se décompose en deux 
groupes : le premier groupe est formé 
des instructions qui permettent la mise 
en mémoire (au sein d’un programme 
Basic), des productions réalisées grâce 
à Artkit et Composer ; le second groupe 
permet la manipulation des productions 
ainsi récupérées. 

Par exemple, GLOAD,‘‘DEMO”’,1 
remet en mémoire le dessin haute réso- 
lution ayant ce titre sur la cassette Gas- 
Kit. @ HION provoque le passage de 
l'écran en mode haute résolution. 
@DOT,50,99 allume un point aux coor- 
données spécifiées. 

Pour les lutins, @DEF,2,7,0,2 allume 
le lutin défini comme portant le numéro 
2, ayant été le septième mis en mémoire, 
de couleur noire, et disposé verticale- 
ment.@ SPOS,w,x, y positionne le lutin 


M 


Le menu 
proposé par Gas-Kit : 
huit fonctions 


numéro w aux coordonnées spécifiées, 
x et y. 


En ce qui concerne enfin la musique, 


= @PLAY, tempo, hauteur, rejoue un 


morceau de musique mis en mémoire. 

Ces quelques exemples ne sont pas 
limitatifs, l’éventail des instructions 
nouvelles permet bien des fantaisies, en 
évitant au programmeur les longues 
séries de POKE fastidieux et souvent 
inefficaces. Appréciation : huit sur dix. 


Le logiciel en quelques lignes 
Nom : Gas-Kit 64 
Ordinateur : Commodore 64 
Forme : cassette 
Edité par : Anirog Software 


Distribué par : Infogrames (Lyon) 

Prix public : 135 FF 

Principales orientations : graphisme, ani- 
mation graphique, sons 

Autre orientation : extension du Basic 


Gas-Kit 64 est un logiciel complexe et 
complet, de qualité inégale dans ses dif- 
férents volets d’utilisation. Nous avons 
vivement regretté cette détestable notice 
mal conçue et en anglais. Si vous en avez 
la possibilité, choisissez plutôt une ver- 
sion disquette du logiciel. Médiocre au 
niveau des graphismes, bon pour ses 
qualités de création musicale, et bon 
encore pour l’extension du Basic. Peut- 
être est-ce Gas-Kit qu’il vous faut ? 


Robin BOIS 
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LES COUPS D'ŒIL DE LIST 


LOGOR 


UN LOGO POUR ORIC:1 


ET ATMOS 


OGOR n'est pas un véritable Logo, mais plutôt 
une première approche de ce langage, 
« une étape vers le jaillissement de l'esprit ». Pour 


les jeunes enfants et les 


classes de primaire, c'est 


un bon produit qui regroupe graphisme et 
musique. Il nous fait avancer à pas de tortue, avec 
beaucoup d'honnéteté, jusqu'à des limites 


clairement définies. 


Six petites pages de présentation et 

d’explications suffisent à rendre 
le logiciel Logor parfaitement maîtrisa- 
ble : pilotage de la tortue, procédures 
paramétrables, musique, etc. 


Avec la tortue, un premier bon 
point : la longueur du pas et le nombre 
d'unités pour faire un tour complet sont 
programmables. En outre, la primitive 
ROND qui est absente du Logo classi- 
que, trace un rond en fonction d’un 
rayon donné. 


La tortue donne 


Les modes LEVEPLUME, BAISSE- 
PLUME, CACHETORTUE, MON- 
TRETORTUE sont respectés, ainsi que 
la GOMME et l’'INVERSEUR. En choi- 
sissant différentes couleurs, la tortue 
laisse même une trace sur un fond. Elle 
se programme en coordonnées relatives 
(AVANCE, RECULE, DROITE, 
GAUCHE) ou en coordonnées carté- 
siennes (POSITION en X Y, DIREC- 
TION). Cependant les axes de coordon- 
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nées ne sont pas liés au centre de l’écran, 


et les valeurs programmables en Xeten % 


Y sont positives. Elles vont de 20 à 220 
pour X, de 20 à 180 pour Y. Etonnant. 


Le fait de pouvoir interroger la tor- 
tue sur sa position et sa direction est 
encore un bon point à mettre à l’actif 
de Logor. La tortue peut aussi écrire un 
texte à l'endroit où elle se trouve, ce qui 
permet de mettre facilement une légende 
à un graphique. 


Quant à la musique, elle est program- 
mable sur sept octaves en utilisant direc- 
tement le nom des notes de la gamme 
chromatique. La durée des notes — cro- 
che, noire, blanche — et le SILENCE 
se programment aussi. La gamme est 
complétée par TIR, ZAP, PING, 
BOUM, un complément musical 
indispensable ! 


Les procédures sont limitées à 10. 
C’est une limite suffisante pour la majo- 
rité des utilisateurs (compte tenu d’une 
certaine expérience dans les écoles 
primaires). 


En revanche, Logor bouscule la 
syntaxe de Logo sur les variables et les 
paramètres. Plus de caractère guillemet 


() pour indiquer le nom, plus de deux- 
points (:) pour parler de contenu. D’ail- 
leurs les variables ne sont pas définies 
par l’utilisateur, elles sont imposées : A 
contient une valeur angulaire, L une 
valeur linéaire. Il faut les initialiser en 
dehors des procédures, mais on peut les 
modifier à l’intérieur de celles-ci grâce 
à des expressions du type L +5, Ax3,... 
qui ne font plus intervenir l’affectation 
au sens informatique (L=L+5 s'écrit 
ici L+5). La manipulation des variables 
globales devient plus facile. Un petit 
«pied de nez» à l'informatique 
classique. 


elogo 


st pas récursif 


Avec Logor, le nom de la procédure 
est séparé de son corps par le caractère 
deux-points (:). Quant au RETURN, il 
est assimilé à une fin de procédure. Ce 
qui oblige à tout écrire sur une seule 
ligne (pouvant contenir jusqu’à 99 ins- 
tructions, tout de même). Cette con- 
trainte ne facilite pas les corrections. 

Un gros point noir : l’auteur de ce 
logiciel semble confondre appel de pro- 
cédure et récursivité. C’est sans doute 
ce dernier mot qui permettrait de don- 


Le logiciel en quelques lignes 
Nom : Logor 
Ordinateurs : Oric-1 et Atmos 
Forme : cassette 
Edité et distribué par : Infogrames 
Prix public : 160 FF 
Principale orientation : première approche 
de Logo 
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LES COUPS D'ŒIL DE LIST 


HAUTE RÉSOLUTION 
POUR ZX 81 16 Ko 


RG est un logiciel qui permet d'effectuer des 
tracés avec 256 x220, soit 56 320 points. 
Même si toutes les combinaisons de points ne sont 
pas accessibles, et si l’on ne peut pas recopier 
l'écran sur l'imprimante, les résultats sont 


honorables. 


Vous disposez d’un micro-ordina- 

teur bon marché. Un ZX 81 pour 

tout dire. Même avec l’extension 16 Ko, 

* ses possibilités demeurent bien limitées, 

évidemment. C’est vrai notamment pour 

le graphisme dont la résolution est très 

grossière. Vous aimeriez bien l’amélio- 

rer sur ce point. Allez, qu’à cela ne 
tienne ! 

Le ZX 81 affiche 22 lignes de carac- 
tères, chaque caractère étant défini dans 
une matrice de 10 sur 8 points, soit 80 
points. Au total, l’écran utile comporte 
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donc 22x32X 80 points, soit 56320 
points. Oui, mais comment faire con- 
crètement pour allumer ou éteindre l’un 
de ces points ? Première idée : il y a en 
mémoire morte une routine qui contrôle 
l’image envoyée sur l’écran. Détournons 
cette routine de telle sorte qu’au lieu 
d’envoyer 22 lignes, elle en envoie 220. 


Chacune de ces nouvelles lignes est 
une série de 256 points (32 fois 8), autre- 
ment dit 32 caractères contigus comp- 
tant 8 points. Dès lors, pour obtenir 
n'importe quel motif en haute défini- 


ee 


ner un «label Logo » au produit. 
Logor n’est pas récursif. Ce n’est pas 
bien grave dans le contexte de ce pro- 
duit qui se limite à une initiation. 

La possibilité de conserver les procé- 
dures écrites ou de les rappeler n’est 
indiquée nulle part. 


Malgré une syntaxe peu adaptée à 
l'écriture de procédures, au passage des 
paramètres et surtout à l’absence de 
récursivité, Logor présente une bonne 
approche graphique et musicale des 
micromondes Logo. Les messages sont 
en français et clairs. Logor est un pro- 
duit aux limites bien définies, les utili- 
Sateurs sont avertis. Amélioré dans le 
sens de la récursivité, il pourrait obte- 
nir le label. Surtout que le microproces- 
seur et la taille mémoire de l’Oric per- 
mettent l'implantation d’un vrai Logo. 


Robert DAGUESSE 


tion, il suffit de pouvoir éteindre ou 
allumer n’importe lequel de ces 8 points, 
ce qui fait 2%. Soit 256 possibilités. 

Dans l'idéal, pour exploiter vraiment 
un écran graphique de 56320 points, 
nous devons donc disposer, en mémoire 
vive, d’une table de 256 « caractères » : 
on déroutera le pointeur de la table 
d’origine pour accéder aux nouveaux 
caractères ainsi définis. C’est ce que fait 
HRG (comme Haute Résolution Gra- 
phique), ou plutôt ce qu’il ferait si, au 
lieu d'offrir 256 caractères, il n’en 
offrait pas 90 seulement. 


Ce programme pour ZX 81 version 
16 Ko est écrit en langage-machine : il 
occupe environ 850 octets dans une 
REM en ligne 0 et il utilise la méthode 
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LES COUPS D'ŒIL DE LIST 


HAUTE RÉSOLUTION ZX 81 


ÉCOUTEZ MON VIEUX, AVEC SEULEMENT 428 PAS PE 
PROGRAMME, 8 MÉMOIRES NUMÉRIQUES #1 FT 3 NIVEAUX 


QUE J'EN FASTE LC 
DE vos 
JRDINI 


décrite précédemment. L’écran graphi- 
que occupe 7 Ko de mémoire vive, ce 
qui laisse à l’utilisateur 8 autres Ko 
environ. 


Pour simplifier la programmation en 
haute résolution, l’auteur d’'HRG pré- 
conise d’entrer les adresses des routines 
utilisées dans des variables aux noms 
évocateurs. Ainsi : LET CLS = 16516 
pour l’effacement de l’écran (qui sera 
dès lors appelé par RAND USR CLS), 
LET TEXT = 16519 pour le passage 
en mode texte, etc. Bien entendu, si 
vous êtes un peu fantaisiste ou si vous 
n’aimez pas l’anglais, rien ne vous 
empêche d’écrire LET POINTE = 
16528 au lieu de LET PLOT = 16528, 
ou LET TRACE = 16531 au lieu de 
LET DRAW = 16531. 


Des résultats 


convenables 


On dispose en tout de 11 fonctions 
permettant l’effacement de l’écran, le 
passage en texte, le passage en HRG, 
l'affichage d’un caractère, d’un point, 
le tracé d’une ligne, le déroulement de 


Le logiciel en quelques lignes 
Nom : HRG 7.0 
Ordinateur : ZX 81 16 Ko 
Forme : cassette 


Auteur : Jean-Michel Cohen 

Edité par : Sinclair 

Prix public : 120 FF 

Principale orientation : graphisme haute 
résolution sur l'écran du ZX 81. 
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Quelques exemples d'utilisation 
de la haute résolution fournis 
avec la cassette 


Pécran vers le haut ou vers le bas, la sau- 
vegarde et le chargement d’un écran gra- 
phique, l’inversion vidéo. Tout cela est 
bien, mais répétons-le, seules sont dis- 
ponibles 90 combinaisons de 8 points 
(sur les 256 théoriquement possibles et 
nécessaires pour exploiter à fond une 
résolution de 56 320 points). D’autre 
part, aucune routine n’a été prévue pour 
la recopie d’écran sur imprimante ; il ne 
sera donc pas possible de garder des 
images des graphiques créés. Par ail- 
leurs, l’utilisateur ne devra pas oublier 
de réserver la place de l’écran graphique 
avant le chargement du programme ou 
d’une page graphique, faute de quoi il 
devra débrancher son ZX. 


PAPE IP LE) 


Gun | 


COURS RS DEEE ES DS ES DO LIEN EEE 


Malgré ces limitations, HRG apporte, 
pour certaines applications, un net 
« plus » et il offre des résultats conve- 
nables. 11 sera utile surtout pour visua- 
liser des fonctions ou des courbes 
mathématiques ou certains effets spé- 
ciaux. Mais il ne faut pas pour autant 
en attendre des miracles ; en particulier, 
la haute résolution ne’vaut que pour les 
programmes qui ont été écrits dans ce 
mode. 

La notice (10 pages) signale correcte- 
ment les possibilités et les limites de ce 
logiciel astucieux qui coûte 120 FF ttc. 


Jacques DECONCHAT 
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PC-VISION 


UN SUPER ÉDITEUR 
POUR SHARP PC-1500 


C-VISION est un utilitaire pour l'ordinateur 
de poche Sharp PC-1500 qui en transforme le 


mode de fonctionnement : éditeur pleine page, 
redéfinition du clavier et assignation de mots 
clefs du Basic notamment. Une fois en mémoire, 
PC-Vision se fait oublier ; il est même compatible 
avec la programmation en langage-machine. Cela 
étant, ce logiciel (écrit en langage-machine) 
occupe 1,5 Ko de mémoire vive. 


PC-Vision fonctionne sur les 

PC-1500/1500 A et Tandy PC-2 
muni d’une mémoire d’au moins 4 Ko. 
Seules les machines dotées des mémoi- 
res mortes ROM 2 à 5 peuvent l'utiliser 
(si, sur votre machine, PEEK &E2B9 
donne 213 la mémoire morte est une 
ROM 1, dommage). 


Le chargement en mémoire du pro- 
gramme n’est pas très compliqué : un 
petit « poke » pour définir l’écran vir- 
tuel (PC-Vision est d’abord un éditeur 
pleine page) suivi de CLOADM et c’est 
tout. Le programme se charge auto- 
matiquement. 

Les touches du clavier sont redéfinies 
de manière plus fonctionnelle : souvent 
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employés, les signes de la virgule et des 
deux-points sont accessibles directement 
grâce aux touches F5 et F6 (les touches 
F1 à F6 correspondent aux six touches 
situées au-dessous de l’afficheur). De 
même, les fonctions DEL et INS ont été 
relogées en F1 et F3. Ceci, ajouté à l’au- 
torépétition des touches en cas de pres- 
sion un peu prolongée, rend certaines 
manipulations bien plus aisées qu’aupa- 
ravant : finies les interminables séries de 
SHIFT INS ou SHIFT DEL... Quant 
aux touches ””’, : DEL et INS””, elles 
us accès aux caractères spéciaux : 
“__ITet J”. 


Des mots Basic sont affectés aux tou- 
ches du clavier. On y accède en frappant 


ee 


SHIFT suivi d’un caractère. Ces fonc- 
tions sont : COLOR, CSIZE, USING, 
GOTO, GOSUB, RETURN, CSAVE, 
CLOAD, TEXT:, GRAPH:, RA 


DIAN:, DEGREE:, LEFT$(, MID(, 
RIGHTS$(, INKEYS, PEEK&, POKE&, 
CALL&, SIN, COS, TAN, LN, EXP, 
LOG et 10°. 


L'écran du PC-1500 est limité à l’af- 
fichage de 26 caractères, mais chaque 
ligne peut en contenir jusqu’à 79. PC- 
Vision apporte un écran virtuel, c’est- 
à-dire la faculté de mémoriser un grand 
nombre de ces lignes. Par exemple, 


tapez, en mode RUN, la suite 
d'instructions : 
RESOL/EQUATION | 
A = Î 
B — Î 
GC = Î 
D = B+xB—4+A%xC | 
XI = rover | 
X2 = (-B-V D)/2/A ! 
XI | 
X2 | 


Vous venez de remplir les neuf pre- 
mières lignes de l’écran virtuel. On peut 
remonter avec la touche ? et redescen- 
dre avec |. Mieux encore, il est possi- 
ble de compléter les lignes 2 à 4, don- 
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nant ainsi des valeurs aux variables À, 
B et C (toujours avec ! entre chaque 
ligne). Jusque-là aucun calcul n’a été 
réalisé. On s’est servi de l’écran virtuel 
pour écrire du texte, comme on écrirait 
sur un carnet de notes ou d’adresses 
(c’est d’ailleurs une des utilisations de 
ce logiciel). La séquence de touches 
ENTER et |, répétée sur chaque ligne, 
va permettre d’effectuer ces calculs. En 
descendant ainsi de la première à la der- 
nière ligne, on peut résoudre une équa- 
tion du second degré en mode RUN. 
Ensuite, un peu comme avec un tableau 
de calcul, on pourra remonter modifier 
l’une ou l’autre des valeurs et recalcu- 
ler le tout. 


La définition 
des touches 


L’écran virtuel est théoriquement illi- 
mité en nombre de lignes (seule compte 
la mémoire disponible) ; en revanche, le 
nombre de caractères par ligne ne peut 
pas excéder 79 (les mots clefs du Basic, 
comme SIN, comptent — après une 
pression sur ENTER — pour deux 
caractères). Il est possible de passer du 
mode PRO au mode RUN des lignes 
entières de fonctions. Les informations 
contenues dans cet écran virtuel demeu- 
rent en l’état tant qu’on ne les efface 
pas. Même l'extinction de l’ordinateur, 
qui n’affecte en rien le fonctionnement 
de PC-Vision, ne détruit pas son 
contenu. 


L’écran virtuel offre, en outre, une 
très intéressante possibilité de définition 
de touches, comme dans l’ancien mode 
RESERVE. Taper, par exemple sur une 
ligne de l’écran : 

A : 2*PI/4 | 

réserve les caractères 2xP1/4 au symbole 
A. Dès lors il suffira de presser RCL A 
pour les obtenir. On pourra stocker de 
cette manière toutes sortes de formules 
ou constantes scientifiques … 


Pour l'édition proprement dite, la 
manipulation de ces lignes de texte, chif- 
fres ou instructions, on dispose de fonc- 
tions spécifiques : 

e DEF — et DEF + provoquent un 
saut du curseur en fin ou en début de 
ligne ; 

+ DEF MODE effectue un saut du cur- 
seur, d'instruction en instruction ; 

e DEF CL efface la ligne depuis le cur- 
seur jusqu’à sa fin ; 

e DEF F1 supprime la ligne et affiche 
la suivante ; 

e DEF F2 fait réapparaître une ligne 
malencontreusement effacée avec CL : 
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e DEF F3 duplique une ligne en déca- 
lant les suivantes (c’est un moyen d’in- 
sérer de nouvelles lignes) ; 

e DEF F4 suivi d’un caractère recher- 
che la ligne commençant par l’étiquette 
correspondante ; ainsi, DEF F4 A 
trouve la ligne débutant par A), car un 
caractère suivi d’une parenthèse est une 
étiquette pour l’écran virtuel de PC- 
Vision ; 

e DEF FS suivi d’un caractère suppri- 
mera toutes les lignes comprises entre la 
ligne actuelle et la ligne étiquetée de ce 
caractère ; 

e DEF F6 enfin recopie le contenu de 
l'écran sur l’imprimante si le commu- 
tateur PRINT de celle-ci est sur P. 


Quand l'ordinateur est en mode 
PRO, DEF ENTER transfère une ligne 
de programme vers l’écran virtuel du 
PC-Vision ; on l’y traitera comme n’im- 
porte quelle autre ligne. En mode RUN, 
lorsque le curseur est au milieu d’une 
ligne, DEF ENTER la coupe en deux. 
SHIFT RCL positionne le curseur sur 
la première ligne de l’écran virtuel, tan- 
dis que DEF F4 | permet d’atteindre la 
dernière ligne qui est symboliquement 
étiquetée ‘‘!)””, ce qui explique qu’on 
lP'atteigne ainsi. 

Parmi les autres fonctions d’édition, 
on retiendra aussi la possibilité de 
« couper-copier-coller » les lignes de 
texte ou de programme. 


Le logiciel en quelques lignes 
Nom : PC-Vision 
Ordinateurs : PC-1500 et 1500 À 
Forme : Cassette 
Edité par : Pocket-Soft 


Diffusé par : XLog (21, rue du Général Foy, 
75008 Paris) 

Prix public : 270 FF 

Principale orientation : éditeur pleine 
page 


Avec son interface-cassette, le 
PC-1500 dispose de la fonction 
MERGE qui permet de faire cohabiter 
selon des règles très précises des pro- 
grammes différents possédant pourtant 
les mêmes numéros de lignes. PC-Vision 
reproduit cette fonction MERGE sans 
requérir l’interface cassette (SHIFT n 
CL, où n est le numéro du programme 
distinct à créer), et permet aussi d’édi- 
ter l’un ou l’autre de ces programmes 
« mergés ». Le programme ainsi choisi 
peut être listé, modifié, exécuté, comme 
s’il se trouvait seul en mémoire (pro- 
gramme actif). 


Deux modes distincts d'exécution 
d’un programme sont proposés ; on les 
choisit en allumant ou non l’indicateur 
RESERVE (SHIFT MODE). S'il est 
allumé, toutes les données introduites en 
réponse à un ordre d’INPUT sont stoc- 
kées dans l’écran virtuel de PC-Vision, 
sinon l’exécution est normale. 


Un code pour 
allumer la machine 


Enfin, la touche OFF d’extinction de 
l’ordinateur est revue et corrigée : l’af- 
fichage, les textes de l’écran virtuel et, 
bien sûr, les programmes et les données 
sont conservés en l’état. A l'allumage, 
l'imprimante ne débite plus cinq inuti- 
les lignes de papier. Une possibilité est 
offerte de protéger par un code l’utili- 
sation de la machine : DEF OFF. Le 
PC-1500 ne reprendra du service qu’à 
la condition de presser simultanément 
les touches Q, A et ON. On peut choi- 
sir sa propre combinaison de touches 
(cette protection n’est pas sûre à 100 % 
mais dissuadera les non-initiés au 
système interne du PC-1500). 


Deux critiques sont à formuler con- 
cernant PC-Vision. Une insuffisance 
d’abord : il ne faut pas tenter d’effacer 
une ligne de programme par DEF F1 
sans qu’il en existe au moins une de réel- 
lement programmée, sous peine de 
« plantage ». Ensuite, la qualité de la 
documentation laisse vraiment à dési- 
rer : en français mais condensée sur 15 
pages ; c’est complet, mais succinct. 


On sait qu’en programmation, le con- 
fort de l’utilisateur dépend beaucoup de 
l’éditeur de la machine. D'origine, le 
PC-1500 est déjà bien loti de ce point 
de vue. Avec PC-Vision, il est encore 
meilleur. La cassette et sa brochure 


d'accompagnement sont vendues 
270 FF ttc environ. 
Jean-Christophe KRUST 
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ALGORITHMIQUE 


FRACTIONS EN SÉRIE 


ERTAINS petits problèmes appartenant au domaine des mathématiques 
gagnent à être abordés par le biais de la programmation. Il en est ainsi 
des fractions continues. Partant de l'algorithme d’Euclide, elles trouvent des 


applications dans de nombreux domaines, en 
particulier dans les réseaux de résistances 
électriques. Les algorithmes 
présentés ici conduisent à 


de petits programmes 
faciles à mettre au point. 


En quatre lignes de Basic 


Voici un utilitaire sans aucune préten- 
tion. Il répond à un très vieux rêve des 
anciens Grecs, qui croyaient que n’im- 
porte quel nombre était une fraction (on 
dirait aujourd’hui un rationnel). 

Dans certains calculs, il peut être com- 
mode de remplacer un nombre x par une 
bonne approximation rationnelle A/B. 
Soit, trouver un rationnel (rangé dans ja 
variable F) de telle sorte qu’il diffère de 
x de moins de 10*. On essaie le plus 
simple : B = 1, À = INT (F). 

Tant que ça ne marche pas, on fait 
tourner une procédure élémentaire, celle 
que l’on appelle « développement en 
fraction continue » (les Grecs parlaient 
d’ « antypharèse »). La démonstration 
de la convergence du procédé n’est pas 
très facile. Même si vous ne vous sentez 
pas capable de la faire ou de compren- 
dre tout seul pourquoi ça marche, vous 
pouvez vous reporter au tome 2 de 
« Mathématiques pour l’Informatique 
Individuelle » de Daniel Jakubowiez et 
Hervé Lehning (Masson 1982), page 76. 


Quoi qu’il en soit, l'efficacité et la rapi- 
dité de cet utilitaire sont excellentes. 


André WARUSFEL 


a — 
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v4 
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Ce qui suit doit être considéré 
comme un divertissement et non 
comme une « dose » de mathématique 
que certains avaient bien du mal à ava- 
ler lors de leurs études secondaires. Il 
s’agit, comme dans un jeu, de découvrir 
ce qui se cache derrière des formules 
apparemment bizarres. 


Un algorithme devenu célèbre, l’algo- 
rithme d’Euclide, permet de trouver le 
plus grand commun dénominateur 
(PGCD) de deux nombres entiers. II 
existe sous plusieurs formes. Celle basée 
sur la division entière conduit à la frac- 
tion continue. Elle se présente de la 
manière suivante : 

1. Soient deux nombres n, et n, dont 
on cherche le PGCD. (On pose n, > 
n:.) 

2. Si le nombre n, est égal à 0, aller 
en 4. Sinon, exécuter 3. 


. 


3. Calculs : 
q = int(n,/n.) où int(n,/n.) est le quo- 
tient entier de n, par n, (par exemple, 
int(7/3) = 2, int(1/3) = O, etc.) 
= N-n+*q 
nn = M 
Er 
Retour en 2. 
4. Le PGCD est n.. 


Si on désigne par q; (pour i allant de 
0 à m), les quotients obtenus successi- 
vement à chaque passage par les calculs 
de l’étape 3, alors le rapport n,/n, peut 
s’écrire sous la forme d’une fraction 
continue : n,/n;: = y + 1/(q + 1/(q: 


+ 1/(q: +... + 1/(qui + 1/q)...))) 

Sous une forme « condensée », cette 
fraction continue s’écrit : n/n, = q 
+ [/q, 1/q, …, 1/qui, 1/q,] 


Pour l’évaluer, il suffit de partir du 
terme le plus bas, 1/q,, puis de remon- 
ter, 1/(q,, + 1/q,), etc. L’algorithme 
l (page suivante) représente cette 
évaluation. 

Comme à chaque étape, il est néces- 
saire de calculer l'inverse du résultat 
partiel S, l’exécution du calcul général 
est très ralentie. Un algorithme descen- 
dant est donc préférable : il augmentera 
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Algorithme 1 
Evaluation d'une fraction continue 
par le bas 


la vitesse d’exécution (algorithme 2). 
L'évaluation ne demande plus alors 
qu'une seule division, P,/Q,, au lieu 
de la cascade de l’algorithme précédent. 


Les fractions continues servent sou- 
vent à approcher un nombre irrationnel. 
Ïl arrive alors que les coefficients q, qui 
les composent forment une suite infinie 
d’allure curieuse : 


2 L + [i/2, 172, #22, A 

Pour k allant d £ 

or 225 Va 1 NA, 17 17e 172, 1 
# V5 & 1 + [1/4, 1/4, 1/4, 1/4, ...] 

Sig ts e 42 + rl, 1/2, 1/1, f/1. 1/4, 


102 Pa PE LE 22 
Les numérateurs qui apparaissent 
dans ces formes « condensées » sont 
tous à un. Ils peuvent prendre d’autres 
valeurs. Ainsi : 
VT um 2+ [3/4 3/4, 


La 


l 


2 + 2x [1/1, 2/1, 6/1, …, m 
(m-1)/1, …] 


Pour les amateurs d'électricité 
En électricité, la loi fondamentale du courant continu est la loi d’'Ohm : U = RI 
(U représente la différence de potentiel, R la résistance et 1 l’intensité du courant 
du circuit électrique). 
Partant de cette relation, on montre que l’association de trois résistances en « série » 
ri, D, 1 (figure 1) a pour résistance équivalente R = r + Fr + rs. 


Figure 1 
Réseau en série 


Si les résistances sont montées en « parallèle » (figure 2), la résistance équivalente 
est donnée par : 
IR = 1/1, + 1/5: + 1/r 
Figure 2 
Réseau en parallèle 


Figure 3 
Réseau en échelle 


x 1 x 3 
x 1 | 


x 2 x4 


Æ 3 
Face à un réseau en échelle (figure 3), on trouve des résistances montées en série 


(r, et r,, ra et r;) et des résistances montées en parallèle (r; et ru, où ri, est la résis- 
tance équivalente de r, et r:). Ainsi : 


FR=ntn 
lu = + 
l/Bu = 1/n + 1L/ru = 1/1 + 1/5 + ri) 


D'où la résistance équivalente R : 
R = r, + 1/(1/r; + 1/(r: + r;)) 

Si on mettait en dérivation sur r,, un montage en série avec r« et r,, tout se pas- 
serait comme si r, était remplacé par 1/(1/r4 + 1/(rs + r)) 

D'où la résistance équivalente R : 


R = Fr + 1/(1/rs + 1/(r + 1/(/r, # 1/(r + r:)))) 


Et, plus généralement, avec un réseau en échelle composé de n résistances : 
R = r + [1/1/1, 1/n, 1/1/13, …, 1/14, 1) 

On observe ainsi que la résistance équivalente d’un réseau en échelle est donnée 
par une fraction continue ! 
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Algorithme 2 
Algorithme descendant 


Four 4 al/ant de £a m 


PezQ; * Pig + Pi-2 
Q<= De * Qu-s + Pi-2 


La formule qui donne r est assez sim- 
ple mais la convergence est très lente. 
Pour juger de l'intérêt de tels dévelop- 
pements, il faudrait étudier la vitesse de 
convergence et le nombre de termes à 
prendre en compte pour une précision 
donnée. Surtout, il faudrait comparer 
cette méthode avec d’autres. 


De telles formules peuvent être appli- 
quées au calcul de la série cox° + cx' 
+ GX + … + cx". On montre qu’elle 
se met sous la forme d’une fraction con- 
tinue : (Cox? + CiX! + .… + C;x") = Co 
+ [cx/1, -(c,/c,) x/(1 + (c,/c;) x}, - 
(c:/0c2) x /(1 + (c:/c2) x), ...] 


De même, l'expression (1 + x)" peut 
être mise sous la forme d’une fraction 
continue : (1 + x)" = 1 + [m x/1, 
(l-m) x/2, (1 + m) x/3, (2-m) x/2, 
(2 + m) x/5, (3-m) x/2, (3 + m) x/7, 
(4-m) x/2,...] 


Et avec x = letm = 1/2, on obtient 
bien le développement de V2. 


Les fractions continues trouvent des 
applications dans l’interpolation de 
fonctions, mais aussi dans des domai- 
nes non mathématiques. En électricité, 
par exemple, le calcul de certaines résis- 
tances équivalentes (dans des réseaux de 
résistances) fait appel à ces fractions 
continues. En régime alternatif, les 
variables qui apparaissent sont même 
complexes. La fraction continue devient 
alors imaginaire. De quoi rêver ! 


Claude NOWAKOWSKI 
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ANIMATION GRAPHIQUE SUR ORIC 


MES MONSTRES 


€ : 

+ VE. Co 

& GS 2. » 
Vo e 


$-22 M'OBÉISSENT 


VEC le programme pour Oric publié dans le 
précédent LIST, nous avons appris à créer 
des petits monstres. Aujourd'hui, nous allons leur 
insuffler la vie, ou du moins les animer. Il ne leur 
manquera plus que la parole. 


Sur l’écran d’un téléviseur, le mou- 

vement n’est qu’une illusion 
(optique, évidemment). L’animation 
consiste, en fait, à afficher des dessins 
les uns après les autres. Il faut donc que 
l’affichage soit assez rapide pour trom- 
per l’œil : jusqu’à plusieurs milliers de 
points par seconde. Pour manipuler des 
centaines de caractères (six points cha- 
cun), on aura recours à une routine en 
langage-machine. 


Autrement dit, on doit se ménager un 
véritable système d’exploitation des 
dessins. 

Au programme que nous avons pré- 
senté le mois passé, et qui était con- 
forme aux principes de la programma- 


Quoi D NEUF 


NUE UR P 


| Les petits monstres 


se ter 


Il faut aussi que le dessin à animer 
soit d’un format suffisamment réduit. 
” En effet, la mémoire ne peut contenir 
que deux dessins de la taille de l’écran, 
alors qu’elle peut stocker jusqu’à 300 
différents monstres de petites dimen- 
sions (16 x 16) qui, de plus, pourront se 
mouvoir et traverser l’écran. 


Il faut enfin avoir le moyen de gérer 
les dessins en mémoire : conserver ou L 
supprimer, placer sur l’écran n'importe 7 
quel dessin, en donner la liste, etc. 
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RS. >> 


tion fonctionnelle, il suffit d’ajouter les 
nouvelles fonctions : 

e G garde un dessin en mémoire, 

e P place un dessin sur l’écran, 

e S supprime un dessin de la mémoire, 
e À anime ies dessins indiqués, 

e les quatre flèches spécifient la direc- 
tion du mouvement, 

e la barre d’espace produit une anima- 
tion sur place, 

e F spécifie le format d’un motif sur 
l’écran, 

7 F (ou Ctrl F) permet le retour au 
format précédent, 

e L liste des dessins, 

e= S (Ctrl S) supprime tout, 
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Animez vos monstres 

Extension du programme pour Oric 
publié dans LIST 5, page 58 

Auteur Max Hagenburger 

Copyright LIST et l’auteur 


1440 
?0 IF GARD THEN GOSUB 1200 1450 
72 1F PLAC THEN GOSUB 1300 1460 
74 1F SUPP THEN GOSUB 1400 1470 
76 IF ANIM THEN GOSUB 1500 1480 
78 IF MOUV THEN GOSUB 1600 1495 
80 IF FORM THEN GOSUB 1700 1500 
82 1F CFOR THEN GOSUB 1800 1510 
84 IF LIST THEN GOSUB 1900 1520 
86 IF CSUP THEN GOSUB 2000 1530 
88 IF CCOU THEN GOSUB 2100 1540 

:GOTO 
115 DDES=#5000 :REM debut dessins 1550 
117 1F PEEK(DDES))0 THEN DOKE DDES,0 1560 
175 :DS51=-3200 :GOSUB 3300 ‘ss/prog 1570 

1580 
255 IF VAL(A$))0 THEN VITZ=UAL (AS) 1595 
260 GARD=(A$="G") 1600 
265 PLAC=(A$="P") 1605 
270 SUPP=(A$="S") :CSUP=(A=19) 1610 
275 ANIM=(AS="A") 1615 
277 MOUV=(A=)8 AND A(=11 OR A$=" ") 1620 
280 FORM=(A$="F") :CFOR=(A=6) 1625 
285 L1ST=(A$="L") 1630 
287 CCOU=(A=3) 1635 

1640 
1200 PRINT “Garde”; 1645 
1210 :G0SUB DSS1 1650 
1220 1F EXIS THEN PRINT" change O"H$: 1655 
:GET 0$:1F 0$<)"0" THEN RETURN 1660 
1225 IF EXIS THEN 1275 1670 
1230 LX=INT((X9-X0)/6)+1 :LY=Y9-YO+1 1675 
1240 HU=ADRS+LY4LX+3 1680 
1250 IF HUD497FF THEN PING:RETURN 1690 
1255 POKE ADRS,ASC(DES$) 1695 
1260 POKE ADRS+1 ,LX 1700 
1265 POKE ADRS+2,LY 1710 
1270 DOKE HV,0 ‘--- 1720 
1275 POKE 1,LX :POKE 2,LY 1730 
1280 DOKE 4,ADRS+3 1740 
1285 CURSET X0,Y0,3 1750 
1290 :CALL #4FO0 1760 
1295 RETURN :REM ----- 1770 
1300 PRINT “Place”; 1795 
1310 :60SUB DSS1 1800 
1320 IF NOT EXIS THEN PING:RETURN 1810 
1330 POKE 0,63#(1-TRA) 1820 
1340 POKE 1,LX :POKE 2,LY 1830 
1350 DOKE 4,ADRS+3 1840 
1360 :CALL #4F2B 1850 


RETURN :REM 
PRINT *Supprime”; 

:60SUB DSS1 

IF NOT EXIS THEN PING:RETURN 
PRINT :PRINT “ confirme O"H$; 
GET O0$:1F 0$<)>"O* THEN RETURN 
SUIV=ADRS+LX#LY+4 

DOKE 1 ,ADRS 
DOKE 3,SUIV 
:CALL #4F40 
RETURN :REM 
PRINT “anime ("ANIM#"*)* 

IF DEEK(DDES)=0 THEN PING:RETURN 
ANIMS="" :AANIM=1 

:60SUB DSS1 

IF NOT EXIS THEN PING:POKE 617,2 
1530 

ADRS(AAN)=ADRS :ANIMS=ANIMS+DESS 
LXCAANI=LX :LY=(AAND=LY 
AAN=RAN+ 1 :1F AAND10 THEN RETURN 
PRINT :60T0 1530 

RETURN :REM 
PRINT “animation; 

IF ANIM#="" THEN RETURN 

POKE 0,63*(1-TRA) 

REPEAT :C=PEEK(520) 

NA=NA+I :IF NA=AANIM THEN NA=1 
IF C=132 THEN 1650 
1XE=X+C(C=172)-(C=188))xUITX 
3IF X<X0 OR X2X9 THEN X=X0 
3Y=Y+C(C=156)-(C=180) ) #VITZ 
11F Y<YO OR Y)Y9 THEN Y=Y0 
POKE 1,LX(NA) :POKE 2,LY(NA) 
DOKE 4 ,ADRS (NA) +3 

CURSET X,Y,3 :POKE 526,0 
:CALL #4F2B 

MUSIC 1,5,RNDC1)#12+1,8 

UNTIL C=56 

MUSIC 1,0,1,0 

RETURN :REM 
PRINT “Format:"; 

:60SUB INPT 

X=INT(X/6)#6 :XX=INT(XX/6) #6+5 
IF X)2XX OR Y)YY THEN PING:RETURN 


T=0 :60SUB CADRE 

X1=X0 :XB8=X9 :Y1=YO :Y8=Y9 
XO=X :X9=XX :YO=Y :Y9=YY 
T=1 :GO0SUB CADRE 

RETURN :REM ----- 

PRINT “Format echange"; 


IF X1=0 THEN PING:RETURN 

T=0 :GOSUB CADRE 

R=X0 :X0=X1 :X1=R :R=X9:X9=X8 :XB=R 
R=YO:YO=YI:YIZR :R=Y9:YI=YB:YE=R 
T=1 :G6GOSUB CADRE 


Les routines assemblées 


adres |,.machine assembleur interpretation 
60 L4 
4F00: Aé 02 LDX #02 3X decompte les lignes 
A0 00 Li LOY #$00 3Y=0, debut de ligne 4F2B: A6 02 
Bi 10 L2 LDA (#10),Y ;charge 1 caractere ecran A0 00 LS 
91 04 STA ($04),Y jet le range en memoire Bi 04 Lé 
[:) INY 3Y+1, caractere suivant 45 00 
C4 01 CPY $01 scompare fin de ligne ? 91 10 
D0 F7 BNE L2 ÿsi non egal -)} charge c8 
20 13 4F JSR $4F13 3ss/prog ligne suivante C4 01 
D0 EF BNE Li ;si X)20 -> debut de ligne D0 F5 
60 RTS sretour programme Basic 20 14 4F 
DO ED 
4F13: 18 CLC sretenue (addit.) a zero 60 
AS 01 LDA $01 scharge longueur ligne 
65 04 ADC $04 ; + adresse memoire 4F40: A0 00 L7 
85 04 STA $04 srange l'adresse B1 03 Le 
90 02 BCC L3 3si retenue, 91 01 
Eé 05 INC $05 3 +1 sur adresse haute c8 
18 L3 CLC sretenue à zero DO F9 
A9 28 LDA 4$28 jcharge largeur ecran 40 Eé 02 
65 10 ADC #10 ; + adresse ecran Eé 04 
85 10 STA $10 srange l’adresse AS 04 
90 02 BCC L4 ;si retenue, C9 97 
Eé 11 INC $11 3 +1 sur adresse haute DO EF 
CA DEX ;X-1 ligne suivante 60 
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1895 RETURN :REM ----- 

1900 PRINT "Liste: "; 

1910 ADRS=DDES+1 :LIS$="" 

1920 IF DEEKÇADRS-1)=0 THEN 1980 
1930 LIS$=LIS$+CHR$(PEEKÇADRS) } 

1940 ADRS=ADRS+PEEK(ADRS+ 1) #PEEK(ADRS 
+2)+4 :GOTO 1920 

1980 PRINT LIS$* ("ADRS-DDES-1")"; 
1990 GET A$ 

1995 RETURN :REM ----- 

2000 INPUT*Supprime tout ‘0’";0$% ° 
2010 IF 0$="0" THEN DOKE DDES,0 

2095 RETURN :REM ----- 

2100 PRINT “’Couleur "; 

2110 :GOSUB INPT 

2120 IF X=XX OR Y=YY THEN RETURN 
2130 FOR 1=Y TO YY STEP SGNCYY-Y) 
2140 FOR J=X/6 TO XX/6 STEP SGN(XX-X) 
2150 P=40960+40%*x1+J :G=PEEK(P)+128 
2160 IF G=)256 THEN G=QG-256 

2170 POKE P,Q 

2180 NEXT J,1 

2195 RETURN :REM ----- 

2840 PRINT"Txt ’EPYCo For Gar Pla Sup 
Ani Lis" 


3200 PRINT * dessin ? "; 


:GET DES$ 


3210 IF DES$<=" * THEN POP :RETURN 
3220 PRINT DES$; 

3230 EXIS=FALSE :ADRS=DDES+1 

3240 IF DEEK(ADRS-1)=0 OR ADRS>H97FF 


3395 RETURN :REM ======2= 


THEN RETURN 
3250 1F ASC(DES$)=PEEK(ADR) THEN 3270 
3260 ADRS=ADRS+PEEK(ADRS+1)#PEEK(ADRS 
+2)+4 :GOTO 3240 | 
3270 EXIS=TRUE | 
3280 LX=PEEK(ADRS+ 1) :LY=PEEKCADRS+2) 
3295 RETURN :REM ----- À 
3300 REM ss/prog assembleur | 
3310 IF DEEK(LB)=#0246 THEN RETURN | 
3320 REPEAT :READ D$ | 
3330 FOR 1=1 TO LEN(D$) STEP 2 | 
3340 V=VAL("#"+MID#(DS,1,2)) 
3350 POKE LB,V :LB=LB+1 :NEXT | 
3360 UNTIL D$="60" | 
3365 DATA A602A000B1109104C8C401D0F72 Î 
0134FD0F060 | 
3370 DATA 184501650485049002E60518492 | 
8651085109002E611CA60 | 
3375 DATA A602A000B10445009110C8C401D | 
0F520134FD0EE 60 | 
3380 DATA A000B1039101C8D0F9E602E604A | 
504C997D0ED60 | 
3385 DATA 60 | 


retour ss/prog appelant 
$02 : 
#$00 ; 
{$#04),Y j;charge caractere memoire 
$00 3 OU exclusif avec TRA 
($10),Y ;le place sur l’ecran 

, 
$o! ÿ . 
Lé ; Cidem prog. 4F00) 
$4F14 ; 
LS ; 

; 
#$00 sdebut de bloc 
($03),Y charge l’ancienne posit. 
($01),Y met a nouvelle position 

position suivante/bloc 
L8 3si meme bloc -) charge 
$02 nouveau bloc suivant 
$04 ancien bloc suivant 
$04 charge ancienne adresse 
#$97 3si non limite memoire, 
L7 3 —) debut 


retour au Basic 
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e © C (Ctrl C) donne la couleur inverse, 
. les chiffres de 0 à 9 représentent la 


vitesse de dans 


l’animation. 


Chaque commande déclenche l’appel 
d’un sous-programme, par exemple IF 
ANIM THEN.GOSUB 1500, et la fonc- 
tion est reconnue grâce à la valeur d’une 
variable logique (soit vraie, soit fausse) ; 
ainsi, ligne 275, on a ANIM = (A$ = 
‘““A”). La séquence d’instructions cor- 
respondant à la fonction proprement 
dite peut de cette façon être étudiée 
séparément du reste du programme 
(pour la fonction anime, les lignes 1500 
à 1580). 

On trouvera la partie en langage- 
machine stockée en data aux lignes 3365 
à 3385. Pour simplifier le traitement, 
nous avons préféré traiter les cellules tel- 


déplacement 


SARA 
Lee 5 


+—k<s 2 


les qu’elles représentent l’image de 
l’écran en mémoire et non pas point par 
point. Chaque cellule est un ensemble 
de six points de l’écran dans le sens hori- 
zontal. Ces mouvements selon cet axe 
iront donc de six en six points. 
Avant l’appel de cette routine, le pro- 
gramme communique les paramètres 
suivants : 
e la largeur LX par le registre 1 (adresse 
de la mémoire), 
e la hauteur LY par le registre 2, 


e l’adresse en mémoire par le double 
registre 4, 

e l’adresse de l’écran par le double 
registre 10 (hexa), mais c’est aussi 
l'adresse du curseur qui est automati- 
quement gérée par CURSET, 

e un masque enfin par le registre 0 qui 
donne une image normale ou inverse 
selon que la trace est ou non visible 
(variable logique TRA). 


Bien sûr, grâce à la programmation 
fonctionnelle, rien ne vous empêche 
d’ajouter encore de nouvelles comman- 
des à notre programme de monstres 
avec, par exemple, insertion de carac- 
tères géants, sauvegarde des dessins sur 
cassettes ou sur disquettes, etc. 


Max HAGENBURGER 


UNE PROCÉDURE PASCAL 


GÉNÉRATION D'UN FICHIER 


‘INITIALISATION d'un fichier dépend de la forme | 


de celui-ci. Un programme pour chaque 
initialisation, ce serait trop. La procédure Pascal 


décrite ici est générale : 


fichiers, quelle que soit leur structure, elle est plus 


elle s'applique à tous les 


rapide qu’un sous-programme trop spécifique, elle 
optimise l'encombrement en fonction du nombre 
de blocs utilisés sur le support magnétique. 


LE PROGRÈS 
EN MARCHE... 


AUJOURD'HUI, L'HOMME ET LA ee 
MACHINE {.…. PRENONS LES DEUX 
: | MALLONS DE LA CHAINE HUMAINE! Û 
ET CONRONTONS - LES .… - Ps 


ES) 


L 
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4 
20 


RÉSULTATS DE 
NOS ESSAIS EN 
LABORATOIRE. 


Au début de la procédure de géné- 
ration d’un fichier vide, une fonc- 
tion est déclarée. Elle possède trois para- 
mètres qui indiquent les caractéristiques 
du fichier à créer. 


Le premier, NOM, est une chaîne de 
caractères qui mémorise le nom du 
fichier. Ce nom doit être complet, c’est- 
à-dire qu’il doit spécifier sur quel péri- 
phérique (par exemple, le numéro du 
disque), cette création est effectuée. 


Le second, NOMBRE, indique le 
nombre d’enregistrements que le fichier 


MERCI DOCTEUR É 
PREUNE EST FAITE DE LA 
\ À SUPÉRIORITÉ DE L'INTELUGENCE 
AC SUR LA FORCE ERUTALE! 


LIST - PAGE 41 


UNE PROCÉDURE PASCAL _ 
GÉNÉRATION D'UN FICHIER 


Il arriye souvent que des fichiers 
soient créés et initialisés avec une lon- 
gueur fixe, déterminée à l’avance. Cela 
permet de simplifier l'écriture des pro- 
grammes et d’éliminer les problèmes 
posés par les fichiers de longueur varia- 
ble (ceux qui s’étendent en fonction des 
besoins. jusqu’à être bloqués entre 


[JE Suis EN TRAIN DE METTRE AU POINT 

À UN SYSTÈME DE GÉNÉRATION DE 
IN CUBATION 
ARTIFICIELLE ! 


FICHIER FAR 2 LP 


nt 


peut mémoriser. Cette valeur est du type 
entier, permettant de générer des 
fichiers de 1 à 32767 enregistrements. 
Rien ne s’oppose, si le système d’exploi- 
tation le permet, à une déclaration de 
ce paramètre en entier long. Ainsi, les 
fichiers créés pourront comprendre un 
plus grand nombre d’enregistrements. 


Tous les iypes 


de fichiers 


Le troisième paramètre, LON- 
GUEUR, spécifie la longueur, en octets, 
d’un enregistrement. Les compilateurs 
disposent généralement d’une fonction 
standard permettant de déterminer cette 
valeur. Pour le système UCSD, un des 
plus répandus, cette fonction s’appelle 
SIZEOF, et a comme unique paramè- 
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tre le nom du type (ou de la variable) 
déclaré avec le fichier. 

La fonction retourne alors une valeur 
logique : elle est vraie si le fichier a été 
correctement généré et initialisé, elle est 
fausse si le fichier n’est pas créé. 

Cette fonction permet de générer tous 
les types de fichiers, en initialisant nor- 
malement les différentes zones des enre- 
gistrements. La valeur de l’initialisation 
est variable selon les types des champs 
des enregistrements (voir tableau 
« Valeur d’initialisation en fonction du 
type du champ d’enregistrement »). 


deux autres fichiers). 


Valeur d'initialisation 
en fonction du type 
du champ d'enregistrement 


Type du champ 
de 
l'enregistrement 


Valeur utilisée 
pour 
l’initialisation 


Logique (boolean) 
Intervalle (e.g. : 
0..255) 

Scalaire (exemple : 
(PRINTEMPS, 
ETE, AUTOMNE, 
HIVER)) 

Entier (integer) 
Entier long (lon- 
ginteger ou integer 
[ND 

Réel (real) 
Caractères (char) 


Chaînes (string) 


False 

Première valeur de 
l'intervalle 
Premier identifica- 
teur de l’énuméra- 
tion (exemple : 
PRINTEMPS) 

0 


0 


0.0 

Caractère NUL 
(chr(0)) 

Chaîne vide de 


longueur 0 (°°°) 


Grâce à la fonction déclarée ici, les 
fichiers sont créés au démarrage de cha- 
que application. Et la rapidité du trai- 
tement fait que cette fonction peut 
encore être utilisée à chaque initialisa- 
tion d’un nouveau fichier : l’ancien est 
alors détruit. 


La création s’effectue d’une façon 
très simple. En voici un exemple avec un 
fichier d’articles. Il est écrit en Pascal 
UCSD, et utilise la pseudo-fonction 
SIZEOF qui retourne ici la longueur en 
octets du type ou de la variable repré- 
sentant un enregistrement du fichier : 


if creer __ fichier ( #4: ARTICLES”, 2000, sizeof (article)) 


then 


write (Creation correctement effectuee’) 


else 


write (Erreur : fichier non cree’) 
write (, tapez [return] pour continuer”); 


readin; 


Il faut noter que les fichiers enregis- 
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GENRE 


Procédure de génération d'un fichier vide 


function creer__ fichier (nom : 
const lonbloc = 512 ; 
var i : integer ; 
correct : boolean ; 
nbrbloc : integer ; 
nbroctet : integer [6] ; 
bloc 
begin 
{$1-} 
nbroctet : 
nbroctet : 
nbrbloc : = 
rewrite (bloc, nom) ; 
correct : — ioresult = =. 0; 
: = 1 to lonbloc do bloc fi : 
l'E = 1; 
AE (ii < = 
begin 
put (bloc) ; 
correct : = 
li = À + À 
end ; 
if correct 
then 
begin 
close (bloc, lock) ; 
correct : 
end ; 
creer__ fichier : = 
{$1+} 
end ; 


nombre ; 
nbroctet +* longueur ; 


correct 


trés sur support magnétique sont sou- 
vent structurés en secteurs de 256 octets 
et en blocs de 512 octets. Le dernier sec- 
teur ou le dernier bloc, s’il n’est pas 
totalement utilisé, est entièrement 
réservé par le système pour le fichier 
considéré. Cette fonction tient compte 
de la possibilité de créer un ou plusieurs 
enregistrements supplémentaires sans 
que la longueur du fichier s’allonge sur 
le disque ou la bande magnétique. Dans 
ce cas, le nombre d’enregistrements réel- 
lement initialisés peut être supérieur à 
celui spécifié par le paramètre NOM- 
BRE. 


La fonction opère en deux temps : 
elle se charge de calculer les paramètres 
de création du fichier, puis elle procède 
à son initialisation. 

La première opération détermine la 
longueur du fichier en nombre d’unités 
de mesure pour le disque, c’est-à-dire en 
nombre de secteurs ou de blocs. Le 
sous-programme calcule cette longueur 
en blocs de 512 octets. Pour qu’il puisse 
être utilisé avec des systèmes ayant le 
secteur comme mesure de structuration 
des disques, il faut mettre la constante 
LONBLOC à 256. 


Le nombre d’octets nécessaires au 
fichier est déterminé, et mémorisé dans 
la variable NBROCTET. Le type de 
cette variable, INTEGER [6], sera éven- 
tuellement modifié selon les impératifs 
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string ; nombre : 


nbrbloc) and correct do 


correct and (ioresult = 


integer ; longueur : integer) : 


: file of packed array [1..1onbloc] of 0..255 : 


trunc ((nbroctet + lonbloc- 1) div lonbloc) ; 


0) ; 


— correct and (ioresult — 0) 


du compilateur utilisé. Il est nécessaire 
que cette variable puisse mémoriser un 
entier pouvant avoir jusqu’à six chiffres 
significatifs (fichiers de 976 Ko). 


Avant tout calcul, le nombre d’enre- 
gistrements est stocké dans la variable 
NBROCTET. C’est presque toujours 
indispensable pour la suite. En effet, si 
le produit de NOMBRE par LON- 
GUEUR est directement effectué, le 
résultat est faux sur de nombreux com- 


pilateurs : NOMBRE et LONGUEUR 
étant des entiers courts, l'expression est 
évaluée selon ce type. Puisque le résul- 
tat ne peut, en général, pas être mémo- 
risé sous ce format (la limite du type 
INTEGER est égale à 32767), il se pro- 
duit un débordement faussant le reste 
des opérations. Ce problème est 
contourné en mémorisant l’entier court 
dans un entier long, puis en effectuant 
l'opération. 

Le nombre de secteurs ou de blocs est 
ensuite évalué. Il est approximativement 
égal au nombre d’octets divisé par la 
longueur d’un secteur ou d’un bloc. 
Comme il doit être entier, il faut tenir 


boolean 


Re 


TT « 
CS EST-CE QU! ie 
on 80 
_ MANGER 


F RROGRAUHE 


compte du cas où le dernier bloc est par- 
üiellement utilisé. Ce nombre est alors 
augmenté de un. La lecture du pro- 
gramme permettra de découvrir l’astuce 
qui effectue cela sans test, avec une seule 
expression arithmétique. 

Le tampon servant à la génération du 
fichier est ensuite rempli avec des zéros. 
Puis le fichier est ouvert en création. 
Bien entendu, après chaque instruction 
d’entrée/sortie, la valeur de IORE- 
SULT, qui permet de savoir si une telle 
opération s’est bien déroulée, est 
contrôlée. Cette valeur ne peut être tes- 
tée que grâce à l’option de compilation 
{$I-}, qui supprime ces contrôles habi- 
tuellement effectués par le système d’ex- 
ploitation. 


Le reste du traitement consiste à créer 
le fichier. Le nombre de secteurs ou de 
blocs déterminé dans la première étape 
permet de réaliser cela. Ensuite, le 
fichier est refermé, et sa création est 
confirmée avec l'instruction CLOSE 
(BLOC, LOCK). Enfin, le résultat de la 
fonction permet de savoir si le traite- 
ment s’est déroulé correctement. 

Cette fonction rend de nombreux ser- 
vices, grâce à son caractère général et à 
sa rapidité. Elle s’insérera donc en 
bonne place dans une bibliothèque de 
sous-programmes techniques. 


Thierry CHAMORET 
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- LIST A TESTÉ 


LE BASIC DE L'AMST RAD 


E constructeur britannique Amstrad, avec son 
CPC 464, vient de casser les prix de 
l'informatique familiale. C’est une chose. II va sans 
doute faire un malheur sur ce marché. Mais il y a 
beaucoup mieux : le Basic de sa machine est tout 
simplement l’un des meilleurs qui soient. 


L’Amstrad CPC 464 est le premier 

ordinateur commercialisé par Ams- 
trad. Cette firme britannique s’était can- 
tonnée jusqu’à présent dans la fabrica- 
tion de matériel acoustique grand public 
où elle occupe d’ailleurs une place très 
enviée outre-Manche. A l'inverse de la 
quasi-totalité de ses concurrents, le nou- 
vel ordinateur familial possède dans son 
emballage d’origine tout ce qui est 
nécessaire à son fonctionnement et à son 
exploitation. 


Tout d’abord, un bloc unité centrale 
comprenant un clavier QWERTY méca- 
nique, agréable au toucher et très bien 
conçu (pavé numérique séparé et pavé 
de gestion du curseur). Certaines tou- 
ches stratégiques se font remarquer en 
rouge, bleu ou vert. A la droite du pavé 
numérique se trouve un magnéto- 
cassette intégré qui, s’il n’est pas entiè- 
rement pilotable par logiciel, possède 
l'indispensable compteur. 

Le moniteur (couleurs pour la version 
à 4 490 francs, noir et blanc pour celle 
à 2 990 francs) se connecte par l’inter- 
médiaire de deux prises sur l’unité cen- 
trale : l’une pour l'alimentation, l’au- 
tre pour le signal vidéo. Seul le moni- 
teur se connecte au secteur. 


Les branchements sont donc très peu 
nombreux et quelques secondes après la 
sortie de son emballage, la machine est 
prête à fonctionner. 


Malgré les apparences, l’éditeur de 
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PAmstrad n’est pas « plein écran ». Il 
y a pourtant un pavé de « gestion de 
curseur » qui permet de le déplacer dans 
les quatre directions n’importe où sur 
l'écran, mais les touches d’effacement 
sont alors inopérantes. En revanche, si 
l’on tape du texte et si l’on appuie sur 
l'énorme touche ENTER, le texte que 
l’on vient d’afficher est validé. Certai- 
nes fantaisies sont ainsi permises : si 
l’on déplace le curseur en plein milieu 
du message qui apparaît à la mise sous 
tension et si l’on tape 10 PRINT 
« COUCOU ! » suivi d'ENTER, la 
ligne 10 est effectivement créée. Veut- 
on la modifier ? Toute tentative utili- 
sant directement le pavé de flèches se 
solde par un échec. On doit taper 
EDIT 10 (l’espace après EDIT comme 
après tout mot-clé du Basic Amstrad est 
obligatoire). On peut alors déplacer 
horizontalement le curseur ; la touche 


Une:cassette de démonstration, 
: . . livrée avec l'Amstrad, 
propose des dessins de toutes 

| les couleurs 


DEL supprime les caractères situés à sa 
gauche et la touche CLR les caractères 
situés à sa droite. De plus, la commande 
EDIT place automatiquement en mode 
insertion. Tout caractère frappé se fraie 
ainsi une place sans détruire ses voisins. 
Il paraît impossible d’écrire par recou- 
vrement. En tout cas, je n’ai pas réussi 
à mettre en évidence un mode dans 
lequel les caractères tapés se substitue- 
raient aux anciens. Ajoutons qu’il est 
possible de déplacer le curseur sur le 
numéro d’une ligne de manière à dupli- 
quer celle-ci. 


Il existe une deuxième méthode pour 
éditer une ligne : on déplace d’abord le 
curseur sur le début de la ligne à modi- 
fier en pressant sur Shift et l’on s’aper- 
çoit que le curseur s’est dédoublé. En 
appuyant alors sur la touche COPY, on 
duplique la ligne à corriger. Sur le 
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La démonstration 
joue sur la haute 


résolution graphique, un 


point fort de l'Amstrad 
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« clone » ainsi obtenu, qui s’inscrit à 
partir du premier curseur, on effectue 
toutes les corrections voulues, exacte- 
ment comme en mode EDIT. 


Les autres commandes d’édition sont 
classiques, mais les voir toutes réunies 
a de quoi réconforter : AUTO numé- 
rote automatiquement, DELETE 
détruit le groupe de lignes spécifié et 


RENUM renumérote un programme en 
entier. 

Ajoutons que le nombre maximum de 
caractères pour une ligne Basic est de 
255. 

Le Basic du CPC 464 autorise des 
noms de variables allant jusqu’à 40 
caractères, tous significatifs : ur. vérita- 
ble luxe. Le type chaîne de caractères 
peut être spécifié par l'instruction 
DEFSTR ou par le suffixe $. À côté de 
cela, il existe deux types de variables 
numériques : les variables entières 
codées sur deux octets et dont les valeurs 
peuvent être comprises entre — 32768 et 
+32767 (suffixe % ou instruction 
DEFINT). Les variables « réelles » ont 
neuf chiffres significatifs. Notons que 
pour une telle précision, les calculs uti- 
lisant les fonctions mathématiques sont 
effectués très rapidement. C’est ce type 
de variables qui est choisi par défaut. 
Les valeurs traitées vont alors de 
— 1,7E38 à +1,7E38. En valeur abso- 
lue, la plus petite valeur possible (à part 
zéro !) est 2,9E-39, 


Les instructions CREAL et CINT 
permettent de convertir les variables 
d’un type à l’autre. La dimension d’une 
variable indicée n’est limitée que par le 
nombre maximum de caractères sur une 
ligne. 


L’instruction ERASE annule des décla- 
rations implicites ou explicites de varia- 
bles, ce qui a pour effet de libérer la 
place mémoire correspondante. Cette 
instruction est très utile quand la réso- 
lution d’un problème nécessite la décla- 
ration successive de plusieurs très grands 
tableaux qui ne pourraient pas tous 
cohabiter en mémoire simultanément. 


Le trio READ, DATA et RESTORE 
répond présent à l’appel, RESTORE 
pouvant être suivi d’un numéro de ligne. 


Traitement de 


| faveur pour les chaînes 


Les chaînes de caractères disposent 
d’un traitement de faveur : on trouve 
toutes les fonctions souhaitées, même la 
puissante INSTR qui détecte une chaîne 
dans une autre chaîne et en donne la 
position. Cette recherche peut d’ailleurs 
s’effectuer à partir d’une certaine posi- 
tion de la chaîne la plus longue : INSTR 
(«COUCOU»,«COU») donne le résul- 
tat 1 et INSTR (3,«COUCOU»,«COU») 
donne le résultat 4. 

En fait, si les concepteurs de ce Basic 
ont visiblement tenu à ne pas trop s’éloi- 
gner du Basic Microsoft qui les a beau- 
coup inspirés, ils ont enrichi la panoplie 
habituelle de plusieurs fonctions assez 
utiles : LOWER transforme toutes les 
majuscules d’une chaîne en minuscules, 
UPPER fait l'inverse ; SYMBOL per- 
met de redéfinir jusqu’à 256 caractères 
et SYMBOLAFTER fixe le premier 
code ASCII dont le caractère correspon- 
dant est redéfinissable. Par défaut, cette 
valeur est 240 (16 caractères redéfinis- 
sables) mais l’exécution d’un SYMBO- 
LAFTER 0 (ce qui signifie que même 
l’alphabet peut être redéfini) libère 1920 
octets. 


Le contrôle des structures s’effectue 
au moven d'instructions classiques : 
GOTO (qui ne peut être suivi d’une 
expression algébrique), IF... THEN... 
ELSE, WHILE...WEND. 


Le traitement des erreurs fait appel 
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LIST A TESTÉ 


LE BASIC D L'AMSTRAD 


aux non moins classiques ON ERROR 
GOTO ou GOSUB, ERR, ERL et 
RESUME. ERROR provoque l’erreur 
dont le numéro est spécifié, ce qui per- 
met notamment de créer ses propres 
messages d’erreur. ON BREAK 


Liste des mots-clés du Basic Amstrad 


GOSUB (que l’on peut annuler par ON 
BREAK STOP) permet, comme on le 
devine, un branchement à un sous- 
programme dès lors que l'utilisateur a 
tenté d’interrompre le programme. Ces 
deux dernières instructions, associées à 


+ PRINT GOSUB 

+ PRINT USING  GOTO 

L RAD HEXS 

/ RANDOMIZE HIMEM 

1 READ IF... THEN...ELSE 
ABS RELEASE INK 

AFTER REM INKEY 

ASC REMAIN INKEYS 

ATN RENUM INP 

AUTO RESTORE INPUT 

BINS RESUME INSTR 
BORDER RETURN INT 

CALL RIGHTS JOY 

CAT RND KEY 

CHAIN ROUND KEYDEF 
CHAIN MERGE RUN LEFT$ 

CHRS SAVE LEN 

CINT SGN LINE INPUT 
CLEAR SIN LIST 

CLG SOUND LOAD 
CLOSEIN SPACES LOCATE 
CLOSEOUT SPEEINK LOG 

CLS SPEED KEY LOG10 

CONT SPEED WRITE  LOWERS 

COS SQ MAX 

CPS SQR MEMORY 
CREAL STOP MERGE 

DATA STRS MIDS$ 

DEFFN STRINGS MIN 

DEFINT SYMBOL MOD 
DEFREAL SYMBOLAFTER MODE 
DEFSTR TAG MOVE 

DEG TAGOFF MOVER 
DELETE TAN NEW 

DI TEST ON BREAK GOSUB 
DIM TESTR ON BREAK STOP 
DRAW TIME ON ERROR GOSUB 
DRAWR TROFF ON ERROR GOTO 
EDIT TRON ON SQ GOSUB 
EI UNT Re 
END N...GOTO 
ENT a OPENIN 

ENV T0S OPENOUT 
EOF AL ORIGIN 

+ WHILE...WEND 5. 

ERR WIDTH PEEK 

ERROR WINDOW PEN 

EVERY WINDOW SWAP PI 

EXP WRITE PLOT 

FIX XPOS PLOTR 
FOR...STEP..NEXT YPOS POKE 

FRE ZONE POS 
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la possibilité de protéger un programme 


durant la sauvegarde et celle de le faire 
démarrer automatiquement après char- 
gement, donneront un peu de fil à retor- 
dre aux « pirates ». 


La façon la plus simple d’obtenir un 
son avec l’ Amstrad est de taper PRINT 
CHRS(7). C’est un peu faible, me direz- 
vous. Oui, mais ce n’est que l’octet qui 
cache les Ko (ou quelque chose comme 
ça). Les possibilités offertes dans ce 
domaine sont immenses. Attention : 
tout ne va pas sans une certaine COm- 
plexité, mais il y a vraiment de quoi 
faire. Le CPC 464 dispose de trois voies 
sonores simultanées pour la musique 
(ou le bruit quand on débute...). A cha- 
que voie est associé un « réservoir » de 
sons et la machine joue jusqu’à ce que 
ce réservoir soit vide. Ces sons ont été 
préalablement définis par SOUND suivi 
de rien moins que huit paramètres qui 
déterminent l’état de la voie, la période, 
la durée, le volume du son, son enve- 
loppe, etc. N’étant pas musicien et ne 
connaissant rien aux synthétiseurs, je 
me suis contenté de quelques modestes 
essais, pas toujours réussis, mais éton- 
nants ! Les instructions ENV et ENT 
(suivies de 16 paramètres) permettent de 
travailler avec une grande finesse les 
caractéristiques physiques des sons 
synthétisés. 

Par ailleurs, SQ(x) donne toutes les 
informations nécessaires sur l’état de la 
voie X. 


Un petit tour 


Sur 1es Canaux 


Toutes les entrées-sorties de l’Ams- 
trad transitent par des canaux : les 
canaux 0 à 7 correspondent à autant de 
fenêtres-écrans dont l’emplacement et 
les dimensions sont au besoin redéfinis 
par WINDOW. Le canal 8 permet de 
piloter l’imprimante, et le canal 9 est 
dédié à la lecture et l’écriture de don- 
nées sur le magnétophone. 


Mais revenons à ces fenêtres. Pour 
choisir celle dans laquelle on veut écrire, 
on fait suivre l’instruction d’affichage 
par # numéro de canal : PRINT # 0, 
«BONJOUR» se passe de commentai- 
res. Notons que le canal 0 est choisi par 
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défaut et que PRINT peut être suivi de 
USING format, et que WINDOW 
SWAP, très spectaculaire, échange le 
contenu de deux fenêtres. 

L’affichage du texte et du graphique 
utilise un procédé de plus en plus 
répandu (c’est celui adopté notamment 
par le Macintosh, le Sinclair QL et 
l’Hector). Il n’existe pas de véritable 
mode texte, les caractères étant affichés 
dans l’écran graphique. Il est donc pos- 
sible de mélanger à volonté texte et des- 
sins, mais cette souplesse se paie par une 
certaine lenteur quand il s’agit d’affi- 
cher du texte ; cela est sensible lors de 
lexécution de l’ordre LIST. 


Les possibilités graphiques du CPC 
464 sont proprement époustouflantes 
pour une machine de cette catégorie. 
Nous ne ferons qu’en évoquer certaines. 


Il existe trois modes sélectionnés par 
l'instruction MODE suivie de 0, 1 ou 2. 
Le mode 0 correspond à une définition 
graphique de 160 x 200 points (ou 25 
lignes de 20 caractères) en seize cou- 
leurs. Le mode 1 est celui de la machine 
à la mise sous tension ; il permet l’affi- 
chage de 25 lignes de 40 caractères ou 
320 x 200 pixels en quatre couleurs. Le 
mode 3 offre 640 X200 pixels ou 25 
lignes de 80 colonnes. Les caractères 
sont alors minuscules et s’ils restent par- 
faitement lisibles sur le moniteur cou- 
leur, c’est tout de même assez fatigant. 


Notons que les trois modes graphi- 
ques utilisent la même zone-mémoire 
(16000 octets) pour stocker ce qui appa- 
raît à l’écran. : 

Dans tous les modes, il n’existe 
aucune contrainte de proximité pour les 
couleurs : chaque point peut être allumé 
individuellement dans la couleur dési- 
rée. Les couleurs disponibles (2, 4 ou 16 
suivant le mode) sont sélectionnées dans 
une palette de 27 par l'instruction INK 


a haute résolition 
au Service des 
+ “histogrammes. 


ë 
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qui permet de surcroît le clignotement 
(à vitesse variable) de certaines couleurs. 


Impossible de passer ici tout en 
revue : l’Amstrad mét à la disposition 
de l’amateur de graphisme une très jolie 
panoplie d’instructions (mais CIRCLE 
fait défaut). 


En plus d’'INPUT et INKEYS$, le 
Basic de l’Amstrad apporte quelques 
facilités au niveau des entrées : 


LINE INPUT # numéro de canal, 
variables permet la lecture des données 
provenant d’un canal quelconque 
(même s’il s’agit du magnéto-cassette), 
INPUT n'étant capable de lire que le 
clavier. 

KEY permet d’associer à certaines 
touches du clavier (notamment le pavé 
numérique) une séquence de frappe :; 
après avoir tapé : KEY 128 = ‘“‘’TRON’’ 
+ “RUN” + CHRS$(13) une pression 
sur la touche 128 (c’est le zéro du pavé 
numérique) fera passer en mode 
TRACE et lancera le programme 
(CHRS$(13) correspond à l’enfoncement 
de la touche ENTER). Cette méthode 
est analogue au mode RESERVE des 
poquettes de chez Sharp. 


KEYDEF attribue à une touche du 
clavier un nouveau code ; on peut ainsi, 
par exemple, transformer le clavier 
QWERTY en clavier AZERTY (il faut, 
bien sûr, coller de nouvelles étiquettes 
sur les touches !). Relevons, pour ter- 
miner, SPEEDKEY qui redéfinit l’at- 
tente initiale et la vitesse de répétition 
des touches, et JOY qui teste la position 


Re 


de deux manettes de jeu et l’état de leurs 
boutons de tir. 


Comme très souvent en Basic (sauf 
sur certaines machines de poche), les 
fonctions mathématiques inverses sont 
délaissées et seule ATN (Arctangente) 
n’a pas été oubliée. 

En trigonométrie, l’ Amstrad peut tra- 
vailler soit en degrés, soit en radians, la 
communication d’un mode à l’autre 
s’effectue par RAD ou DEG. Enfin, la 
pseudo-variable PI est présente et 
retourne la valeur 3,14159265. 


L’élévation à la puissance est obtenue 
par le signe T et MOD donne le reste 
d’une division entière. Toujours à pro- 
pos de la division, il faut distinguer le 
signe / qui effectue la division dans l’en- 
semble des réels et qui retourne un réel 
et N qui divise un réel par un entier, 
le résultat étant un entier. MAX et MIN 
retournent la plus grande et la plus 
petite valeur d’un groupe d’expressions. 
Ainsi, MAX (1,2,3,8,12,0,4) donnera 
12; 

La fonction RND fournit des nom- 
bres « aléatoires » compris entre 0 et 1, 
et RANDOMIZE permet d’éviter la 
répétition des mêmes séquences. BIN$ 
et HEXS$ effectuent respectivement les 
conversions décimal-binaire et décimal- 
hexadécimal. 

La fonction ROUND arrondit une 
expression à partir de la position spéci- 
fiée avant ou après la virgule. Quant à 
UNT, il convertit un entier non signé en 
un entier compris entre —32767 et 
+32768 ; ainsi UNT(&FFFF) donne 
— 1. Enfin DEFFN autorise la défini- 
tion de nouvelles fonctions. 

Le magnétophone à cassette intégré 
fonctionne avec des cassettes standard. 
La vitesse de transfert est soit de 1000 
bauds, soit de 2000 bauds, le passage de 
l’une à l’autre s’effectuant par l’instruc- 
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LIST À TESTÉ 


tion SPEED WRITE 0 ou 1. L’ordina- 
teur détecte automatiquement, au début 
de chaque lecteur, la vitesse à laquelle 
l'enregistrement a été effectué. Les ins- 
tructions LOAD et SAVE offre plu- 
sieurs options : 

e SAVE «X»,A sauvegarde le pro- 
gramme en mémoire sous forme 
ASCII ; 

e SAVE «X»,P le sauvegarde en le pro- 
tégeant (après lecture, impossible de le 
lister) ; 

+ SAVE «X»,B adresse de départ, lon- 
gueur permet de sauvegarder un secteur 
complet de la mémoire sous forme 
binaire. Il est ainsi possible de mémori- 
ser sur cassette l’image qui apparaît à 
l'écran. 


Le catalogue 


de la cassette 


CHAIN charge un programme en 
remplacement du précédent alors que 
CHAIN MERGE l’ajoute en mémoire 
en le renumérotant éventuellement pour 
éviter les chevauchements. Ces deux 
dernières instructions conservent l’état 
des variables. MERGE tout seul charge 
en « aveugle » un programme, la coha- 
bitation avec l’ancien nécessite que le 
programmeur ait pris ses précautions. 


Les instructions OPENIN, CLO- 
SEIN, OPENOUT et CLOSEOUT 
ouvrent et ferment une zone de la 
mémoire vive (2 Ko) qui constituera un 
intermédiaire entre l’ordinateur et le 


BONJOUR, 
PATRON! CE SERAIT... 


POUR... UNE PETITE 
AUGMENTATION.., 
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fourquoi EH 
BIEN... FARCE QUE 


: QE JE SUIS. 


# 


- JE de 
s Ts 


cassettophone durant la sauvegarde ou 
le chargement de variables. 


Signalons, pour finir, la commande 
CAT, qui dresse la liste des fichiers con- 
tenus par la cassette. 


L'Amstrad est doté d’une horloge 
interne (non sauvegardée par batterie). 
La pseudo-variable TIME donne le 
temps écoulé (en 300° de secondes) 
depuis la mise sous tension. Cependant, 
toute lecture ou écriture cassette inter- 
rompt provisoirement le décompte du 
temps. 

Les interruptions peuvent être gérées 
directement à partir du Basic : l’instruc- 
tion AFTER...GOSUB provoque un 
branchement à un sous-programme 
après un laps de temps spécifié. Quatre 
comptes à rebours peuvent ainsi s’effec- 


“ tuer simultanément, L’exécution du 


programme reprend à l’endroit où elle 
a été suspendue dès qu’un RETURN est 
rencontré. 


L’instruction EVERY...GOSUB 
déclenche l’exécution du sous- 
programme désigné périodiquement 
avec la fréquence spécifiée. 

REMAIN (n° de chronomètre) teste 
l'état d’un des quatre chronomètres puis 
l’arrête (s’il est déjà arrêté, la fonction 
retourne zéro). 

Comme tout Basic qui se respecte, 
celui de l’Amstrad donne accès aux res- 
sources du système : PEEK (lecture 
d’un octet), POKE (écriture dans un 
octet) et CALL (appel d’un programme 
en langage-machine avec passage de plu- 
sieurs paramètres). 

La pseudo-variable HIMEM donne le 
dernier octet auquel a accès le Basic 


FAIT 12 MOIS 


Fiche technique de l'Amstrad CPC 464 

Constructeur : Amstrad 

Prix public : 2990 F (écran noir et blanc) 
4490 F (écran couleur) 

Processeur : Z 80 À 

Mémoire vive disponible : 43 Ko + 16 Ko 

graphique 

Mémoire morte : 16 Ko 

Langage : Basic résident (158 mots-clés) et, 

en option, Pascal, Logo (disquette) 

Affichage : 25 lignes de 20 caractères. 

25 lignes de 40 caractères. 

25 lignes de 80 caractères. 

Késolution graphique : jusqu'à 640 x 200 

points 

Vitesse de transmission cassette : 1000 

ou 2000 bauds. 

Précision : 9 chiffres significatifs 


(HIMEM est initialisée à 43903 et peut 
être modifiée par l'utilisateur). 


Le Basic de l’Amstrad, dont nous 
sommes loin d’avoir fait le tour, est l’un 
des plus complets qu’il nous ait été 
donné d’essayer. Il soutient sans aucun 
problème la comparaison avec son con- 
current direct, le Basic MSX. Si le clan 
MSX devait sortir gagnant de la com- 
pétition qui se prépare, ce serait sans 
doute grâce à une plus grande bibliothè- 
que de logiciels, une importante variété 
de périphériques et surtout, grâce à la 
puissance commerciale de l’ensemble 
des constructeurs ayant adopté ce stan- 
dard. Maïs rien n’est joué pour l’ins- 
tant, car l’Amstrad est une machine 
sensationnelle. 


Thierry LÉVY-ABÉGNOLI 


NON 7 Au! 
EUH... BON. 
J'AURAIS PENSÉ 


Es 
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a do de do + cc ce 


SOIGNER LES PRÉSENTATIONS 


AU MENU : 


UN PROGRAMME 
À LA CARTE 


OUR bien présenter un programme, rien de 

tel qu'un menu : tout y est clair et on 
choisit ce qui nous intéresse, Mais, sur la seule ligne 
d'affichage des ordinateurs de poche, il faut 


savoir abréger. 


| On peut se souvenir sans trop 
de nostalgie de ces premiers 
ordinateurs de poche dont la taille 
mémoire était un problème : il fallait 
économiser le moindre octet, souvent 
au détriment de la présentation et de 
la facilité d'utilisation du programme. 


LGDI PEN mrmateuvmane 
MENU POUX CPLAATIUNS 
LÉRELEELEEEEPEPPTET ST 
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Aujourd’hui, leurs capacités de 
mémoire ont nettement augmenté, 
mais le style de programmation est 
encore resté le même : difficile d’utili- 
ser un programme sans avoir lu aupa- 
ravant son mode d'emploi. Alors, 
pourquoi ne pas profiter de la place 


= 


MAUVAISE PRÉSENTATION 


souvent disponible pour concevoir des 
« menus » ? D'autant que depuis 
longtemps ils sont employés avec suc- 
cès sur les ordinateurs de table. Le 
plus souvent, le programme se suffit 
ainsi à lui-même: peu ou pas de 
notice extérieure. 

Sur les ordinateurs de table qui dis- 
posent de l’écran d’un téléviseur, le 
menu peut être constitué à partir 
d'une suite d’instructions PRINT 
avant un INPUT (comme le montre le 
programme 1). Mais avec la seule 
ligne d’affichage des poquettes, l’uti- 
lisateur n’a plus que celle de l’'INPUT 
sous les yeux lors du choix. Il est 


Programme 1 
Un exemple de menu à éviter 
pour les ordinateurs de poche 
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donc préférable d'employer des abré- 
viations comme le montre le pro- 
gramme 2. 


Programme 2 

Un menu conçu 

pour les poquettes 

LADE LIM Act AK AM AAA A ACAOKK 

FOUR OPERATIONS 
AC ACA A AH AAC AOR ACA CACHE ACK 

119:PAUSE DPERAT. 
2 DNS" 


228:Vs="": 


*ENU 


INPUT °#45)*S0 


JST/MULT/DIV/FINE SI 


3iV3= 
230:IF Vs="H° 
149317 Vs="s" 
VSs="M" 

ÿ Y5="2" 


YS="E" 


PF TS V3: 
GOT) “#22° 
GOTO “SOUS 
6570 *AULT 
*21Y 


Cependant, si toutes les abrévia- 
tions de l’INPUT ne peuvent pas tenir 
sur la ligne d’affichage, on procède 
alors par la méthode help : l’utilisa- 
teur demande une aide, sous la forme 
d’une explication, dès qu’il en a 
besoin. 


Avec un SOS, par exemple, toutes 
les abréviations seront données en 
clair (programme 3), si on le désire. 
Sinon, le programme passe directe- 
ment au traitement. 


Jouez sur. 
tous les niveaux 


Vous remarquerez que deux CALL 
spécifiques au PC-1251 permettent de 
jouer avec l’affichage à cristaux liqui- 
des (lignes 600 et 620). 

On peut aussi procéder par arbores- 
cence pour résoudre le problème des 
initiales multiples. Par exemple, un S 
pour Supprimer et un S pour Sauver 
peuvent apparaître à deux niveaux 
différents. Les commandes de niveau 
inférieur doivent être moins fréquem- 
ment employées, puisqu'elles sont 
quand même moins faciles à appeler : 
pour les sélectionner, il faut avoir 
donné autant de réponses qu'il y a de 
niveaux au-dessus d'elles. Le pro- 
gramme 4 donne l'exemple d’un menu 
avec deux niveaux d’arborescence. 
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Ainsi, le S de la sauvegarde ne pourra 
être sélectionné que si, au premier 
niveau, le choix s’est porté sur PERL. 


Pour encore plus de commodité, il 
faudrait pouvoir retourner au premier 
niveau après avoir sélectionné le 
niveau inférieur. Il suffit alors d’ajou- 
ter une option RET (comme retour) 
en ligne 90 et de rentrer la nouvelle 
ligne 125 IF K$ = ‘R’’ GOTO 20. 


Dans le PC-1251, comme dans 
d’autres ordinateurs de poche, il est 
possible de stocker simultanément 
plusieurs programmes que l’on sélec- 
tionne par DEF. D'où l’idée de tou- 
jours avoir un menu en tête récapitu- 
lant tout ce que contient la machine 
(programme S). 


Bien sûr, tous ces menus deman- 
dent un effort supplémentaire lors de 
la programmation. Mais ensuite 
quelle commodité d’utilisation ! Et 


finies les interminables questions sur : 


Programme 3 
Un menu avec SOS : 
des explications peuvent être 
demandées au besoin 

Hi EN AR ee de 2e CAC MON GK OH HCHCHOK 
RG ACTJRATION 
AA ke A6 OKON HONOR ACOOHONC OK 


MINE 
PmHiz Di Paint CAM 
/HE50S/TERMINER *: 
GÜSUR 64 
25 32:19 PAUSE C= CA 
TALOÜGUc': PAJSE "= 
MOJIFICATIONY: PAUSE 
VF= FACTURE": PAUSE 
“Y= WYDIR": G0TO 29 
115 8B=26 PAUSE 
REVOIR": CN 


A 
G: 


=22 GOTO *VAIR? 


Œ 
e 


6 GÜTD °FACTUR 
3 6070 “CATALOG 
13 5070 “MODIF! 


—J Oo on 


A 
. 


“D 
Se © 

_ . 
CDitira rit 


SRE AH 40 KR OK OKON ee bee AC 
ICI SE TROUVE 
_h SUITE DU 
PROGRAMME 
599: RE N  4 he s6 4e HCAOOK OH HOKKOHOK 
S/P INKEYTS & CCD'DN° 
AAA ACACH HO AAC HOK HONOR HOME 
599:4$="": CALL R&I11E 
Gidih3= INKEY$ 
d2D:IF ÀS CHLL &lics! 
BCEP i1:B= ASC A$-b4: 
RETURN 
539:50T) 614 
DD: RE M Ac ok 3 ob AH HONHOK 


+ 
or 
ee 


Programme 4 
Un menu à deux niveaux 


1@ 3 RE 42e he ok CHE MON ACNCH 


MENU POUR AGENDA TEL 
OH OO AC AIOH 
ZO:WAIT D: PRINT *ENTR/ 


SUPPR/RECH/PERI/FIN" 
: GOSUB 746 
3811F 
4g:IF 
Sû:1F 
68:IF 
Tü:IF 


Kg="E" 
K$="5" 
KS="R" 


GÜTO ‘ENT® 
GOTO ‘SUP’ 
G0T8 °REC”° 
K$="P* GDTO 98 
K$=°F* PAUSE * 
AU REYOIR‘: END 
3ÿ:50T0 28 
SG: HAIT ÿ: PRINT YLIRE/ 
SAUVEGARDER/IMPRIME" 
: GOSUB 70ÿ 
198:IF K$="L* GOTO *LIR° 
1iD:IF K$=*5S* G0OTO *SAU° 
28:IF K$=*I* GOTO *ImP* 
139:G50T0 94 
1482 REM 24e 2e ee he CCC AOM OC HOHOK 
ICI 3SE TROUVE 
LA SUITE DU 
PROGRAMME 
690: REM #2 4 ke 4 4e 24 CNOMOK 40 NOK 
S/P INKEY#$ & LCD*ON* 
MACON HN OCOCAOKHONOHONOK 
rOy:K$="": CALL &11E8 
Tidink$= INKEYS 
T2Y:IF K$ CALL &11E5: 
BEEP 1: WAIT : 
RETURN 
739:G0T0 718 
7403 REM ke 2 ke 4e 4e OK HO AO 


Programme 5 
Un menu récapitulatif 
LAS RE ct AAC AH GREACAC HACK 
MENU POUR YMERGE” 
AAC HOMO OK OO AC AK HN 
29:°m* HAIT : PAUSE * 
MENU 
DEF B=31DlJLE 
SG: PRINT DEF S=STCHIF 
SH: PRINT ‘DEF C=CHÛSE 
64:PAUSE ” AU REYU 
IR° - 
TY:END 
BD: REM 4 40H 0H HCHHCACAHOK AC AONOK 


39: PRINT 


le fonctionnement de ce fameux pro- 
gramme que vous n’aviez plus utilisé 
depuis de si longs mois... 


Michel DUPONT 
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LES DISQUETTES COMMODORE 


N tant qu'utilisateur du lecteur de disquette Commodore, vous aimeriez 

protéger vos fichiers contre toute destruction intempestive, sans pour 
autant mettre en place une étiquette sur l’encoche de vos disquettes. Une 
solution existe : la protection logicielle. Nous l'avons rencontrée ! 


Laissée en suspens dans LIST 4, 

l’étude de fichiers d’un type quel- 
que peu spécial est abordée ici. Pour- 
quoi spécial ? Tout d’abord parce que 
rien, dans le manuel d’utilisation des 
disquettes, n’est dit à leur sujet, et 
ensuite parce que les propriétés de ce 
nouveau genre de fichiers sont vraiment 
très particulières. 


Avant de se lancer dans cette étude, 
il faut rappeler les bases de l’organisa- 
tion des disquettes sur Commodore. 
Cinq types de fichiers différents peuvent 
coexister normalement sur une dis- 
quette. Quatre types sont majeurs : les 
fichiers séquentiels (SEQ), programmes 
(PRG), utilisateurs (USR), relatifs 
(REL). 


Le cinquième est un peu particulier 
puisque les fichiers de ce type n’appa- 
raissent plus lors de l’affichage du cata- 
logue de la disquette, et ne peuvent plus 
être rechargés en mémoire : il s’agit des 
fichiers détruits (DEL). 


Le SED (Système d'Exploitation des 
Disquettes) reconnaît la catégorie à 
laquelle appartient chaque fichier grâce 
à une indication ad hoc, qui figure à 


N° 6- JANVIER/FÉVRIER 85 


] 


LS 


Tableau 1 
L'octet souligné indique le 
type de fichier 


PISTE 18 


[SIS] 
AE 


dit € 


[Ra] 


ENS) 


SECTEUR 1 
FF Ha 


11 


Nous Vouziows PLUS 
PROTECTION ! 


DE 


[SISRTS 


[AIR] 
4 415 


[RTS] 


Et KE 
4 
4 ut 
SU A 
AA 
HU 4 
EE HAE 


EU 49 AE GE À! 
IA EHER AEX MIE 
Ei Sd SE Al 4E 
Qu FE Cut 
AZ AZ AE 
ct ERA LA EE 
A Ed 41 4 
HE Et Lt Lt 
4 AE SE 40 
HE At ua AA 
AL OS d4 
A Ai 
3 AT 45 
* Et At 
IS SE 4 4 
EU AA € 


1 GX 


côté du titre du fichier sur la piste 18 de 
la disquette (cette piste est celle du cata- 
logue). Le tableau 1 établit qu’un seul 
octet est suffisant pour contenir cette 


Et SE d'4 « 
EtEt HAE 
le 


Li A 


ft 45 Toususs CUFIE ECFAH 


Et 2 Malssemaenensenus 
mie Lists TABLES CE 
ES Te) Be AL durs ratsisisrsrerers sis 
HE 3 ovnoe ne MUETS use 
AG GA GE QE EE EE sou us osseuses 
45 41 SE 41 AE AU Oz ..... GRCS CAF 
ET AE ENT AE MIT EM 1 cos ansnsemenmens 
AE dt 20 Sd 4 SE 1 ss ELEMENT TES 
CIS Tireesesiaituste 

F 47 Zn Dd 7 33 24 : ,.,., SUBLOG F2 
EL] A 
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LES DISQUETTES COMMODORE 
FICHIERS DU SIXIÈME TYPE 


indication du type, l’octet souligné. Il 
vaut 81 pour un fichier séquentiel, 82 
pour un fichier programme, 83 pour un 
fichier utilisateur, 84 pour un fichier 
relatif et 00 pour un fichier détruit. Et 
quand on demande l’affichage du cata- 
logue, le SED analyse l’octet indicateur, 
et rend son verdict sous la forme de trois 
lettres qui apparaissent à l’écran : SEQ, 
PRG, USR, REL, ou sous la forme 
d’une absence d’affichage si le fichier 
est de type DEL. 


Rigoureusement 
Hindestructible 


Le tableau 2 établit une correspon- 
dance entre les valeurs hexadécimales 
possibles (qui figurent dans le tableau 
1) et leur écriture binaire. Ceci pour cha- 
que type de fichier. 


La lecture de ce tableau indique que 
les bits 0 à 2 sont suffisants pour défi- 
nir le type du fichier. Par ailleurs, les 
bits 3 à 6 semblent devoir rester toujours 
à 0. Quant au bit 7, il a une fonction 


Explications du programme 


Lignes 190 à 210 : initialisations diverses, les cinq types connus de fichiers sont stoc- 
kés en tableau. 

Lignes 230 à 250 : le canal de commande est ouvert comme d'habitude sous le numéro 
logique 15, tandis que le canal de données portera le numéro 2. 

Lignes 270 à 320 : pour qu'il n’y ait aucun doute sur la disquette à traiter, le pro- 
gramme lit et affiche au préalable son titre et son numéro d’identification. 

Lignes 340 à 530 : le titre du fichier à protéger est demandé à l’utilisateur (le programme 
se termine en cas de non-réponse). 

Quand le titre est défini, le programme le recherche sur la piste 18 qui contient le 
catalogue de la disquette. 

L'utilisateur a la possibilité d’abréger le titre du fichier en ne tapant que les pre- 
miers caractères. En ce cas, c’est le premier titre correspondant à ces caractères qui 
sera proposé pour le traitement. 

Lignes 550 à 590 : le titre trouvé est affiché, et l’octet de type est lu à son tour. La 
ligne 590 indique le cas échéant si le bit 6 de cet octet est déjà à 1, auquel cas le traite- 
ment pourra être une libération du fichier. 

Lignes 610 à 670 : si tel n’est pas le cas, le type actuel du fichier est affiché, et l’utilisa- 
teur doit confirmer sa demande de traitement. La ligne 660 permet de positionner le 
bit à 1 pour établir la protection. 

Lignes 690 à 730 : si la protection est déjà en place, l’utilisateur peut demander la 
libération du fichier, ce qui s'effectue en ligne 730 par remise à 0 du bit 6. 

Lignes 750 à 800 : dans les deux cas, l’octet modifié est remis en bonne place sur la 
piste 18, tandis qu’un commentaire signale la fin du traitement. 

Ligne 860 : le retour à la ligne 340 permet de traiter ‘‘dans la foulée”” un autre fichier. 
Lignes 880 à 910 : classique et tout à fait indispensable, voici le sous-programme de 
traitement des problèmes éventuels décelés sur la disquette au cours du travail. 


spéciale : Tableau 2 
« S’ilest à 0, il indique que le fichier est Représentation sur huit bits 
ouvert ; des types de fichier 
« s’ilest à 1, il indique que le fichier a 
été refermé. oi : EE | 
ï z k 8 ation sur nul AS 

Vous pourriez découvrir comme Type de fs ta Code 
nous, par le plus grand hasard, que le penier 7 6 5 4 3 2 1 0 hexadécimal 
bit 6 est doué de propriétés tout à fait DEL. 0 0 0 0 0 0 0 0 00 
remarquabies. SEQ 10 |olololo)otl 81 
En effet, le simple fait de positionner ce PRG 1 0 0 | O0 | 0 | 0 I 0 82 
bit à 1 provoque la création d’un nou- USR L 0 0 0 | 0 0 l L 83 
veau type de fichier... Demeurant visi- REL 11 0 0 0 0 I 0 0 84 


F— 


LES 
AVENTURES 


} 


TU OUBLES QUE 
SANS ORDINATEUR 
NOLS  N'AURIONS 
JAMAIS  RÉALISÉ 
CE MAGNIFIQUE 


TU M'ÉNERVES \ 
AYEC TON 
ORDINATEUR ! 


JUSTEMENT, MAINTENANT J'AIMERAS BiEN 
QUE TON ORDINATEUR  TROUVE UNE 
SOLUTION POUR RÉAUSER NOTRE 

VOYAGE DE RETOUR AYANT QUÆ JE 

PERDE  PATENCE !° 
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di Et Tr à 


! © © 


1 
11 
1 
15 
14 
15 
1 
1 
18 
15 
za 
Z1 
22 
23 
24 
Et 
26 


D © © © QE © © © Di 


5 


in E do Pa à © 
S © © À © 


D Gi Gr D MS 
Sr Si Si 5 Gi Gi 


Too 


Be Qi ig 


1 JM ON do Rime Go i0 On +) On CN LH du Mi me © ft G j Ÿ 
DE, 


A CN M NON EN ET EN BOB BE Le de He Ho Le Gi C0 Oo 0 LOC Di 6 Li Li 
1 © © © © & & € 


Un Linie 


& & © © © © & © em © 


3 
La) 


[s) 
A 
& 
Le) 
a 
a] 
a 


ju mi mi) ji = 71 Ji M DH D MMA 


EDR 


FE 


Rep SEL ESS ETS EST EEE ES ETS 


FEN # UTILITAIRE GISQUE HA * 
FEI % AHTI-ESCRATIUH + 
FE #4 EE MERE RENE RNN ENT MEMANE 


FRLNT A: 
FRINT'SPERMET QE FROTEGER CES 
FRINT"@OU DE 


CE$=CHRE 


"3 ANTI-SCRATCH " 
FICHIERS 


SUPRRIMER CETTE FROTECTION. 


ce 
CIN A$idi:FOR I 


F0 TO 4:READ A$LI2:2HEXT 


CONTRE L'EFFACEMENT." 


DATA DEL,SEG,FRG,USR.REL:REN TYPES DE FICHIERS 


REF HAMMAM INITIALISATIOHS DISQUE MY #44 RME RER 


OFEH 15,8 


S,"TA"sGOSLUIE 964 


LPEN Z.8,2,"#":G0OSUR 9 


FEM RAM MERE RER RER TITRE ET 
FRINT#15, "01" S 
FRIHT#15,"R-F" 


FOR I1=t 


Tû 
FRINT"#Na TITRE: 


18: ACER 


13: GETHZ,AS:F#=FS+HS HET I 
MaLEFT#CF$,16>;:" a ICe "A 


Ou LE LOL EEE CEE E7%%,9727 72 


IGHT#ÉFS,20 


PEN AE AMEN ER PROC FPE RAR MONO ME AE AE 
IHFUT'ATITRE OÙ FICHIER À TRAITER HBERRI':Ti$ 


IF Tig="#" 


THEH 338 


IF LENXTIH221S THEH 354 


P=i8 


25e) 


FRINT#1, 


FRINT#15. 


REP +ttæ+t+tt+tt+t+t+++t+ EMPLACEMENT 
GETRE,F#:PS= 4 


GETH2,5# 
J=1:REM 


"MU 


r& 
D EL 


GOSUR 894 


2PrSiG 
GIGOSUE «9@ 


S 


GE 


SUTYANT 


CPH+CA#I :REM PISTE 
FASCES#+CH$ : :REM SECTEUR 


A EE 


CONPTEUR QU NOMBRE CE FICHIERS-'RLOC 


RENM +++ tet+ttt++tt TITRE FICHIER +444 tte tt + 
FRINTH1S,"R-P' ES IRaT+E 
TE$=" "FÜR Ii TO 16 
GETH2.H6:T2$=-T2H+ARS 


HET I 
IF Ti$<5 


LEFT#HÉTSS,LEMST1#0 0 


THEH &24 


RE +++4t4tt+ttt+++t+t++ttt TPE FICHIER RER ++ 
FRINT ">>" 2TZ#: s "mn: LL ; 


PRINT#1S, 
GETREZ, 48 sH=ASCE 


IF X 


AND 


"E— 


“rss JKAZ+E 
KHE+CAS > 
64 THEH FRIHT" 


FICHIER DEJIA FRÜTEGE 1" 


:GOTO 65 


RENM ++++t+t+tttt+ ETABLISSEMENT DE PROTECTION +444 et 


PRINT'FIC 


EF 
Fa 


RE +++++++4++++++4+ SLIFPE 
FRINT:IHPUT'ON LIRERE <O 
mp4 
IF R$="N" 


IF R$< 


Beix AND 


FRINTHIS, E-PN 32; JHAZ+2 
FRINT#Z,CHR#« 
PRINTH1S,"E-F" 
FRINT#IS, “LUZ 
FEIHT "a 


GOT z6û 
: 
J=J+1:1F 


IF F& 


HIER DE TPE 9 ":A#CX 
PRIHT :INPUT"'ON PROTEGE 
H" 
NI 
Ed) 2CH=U"PROTERGE. " 


THEH 


AHC 
2) 


153" 
CC H 
OR R#s"0" THEN 63 


THEH &e 


SSIOH DE FROTECT 
"rt 

OR R#:"0" 
THEH 86@ 
1912 :C#="LIBRERE, 


THEN F 


SQSUE 


Lt] 


I€3 THEH 434 


P=SFE:G=6R:GOTO 4G@G@:REN SUITE 7 


PRINT" ICHIER HON TROQOUVE 1" 


GOT 


FE: 
FETUEH 


EHC 


RE HA RNA RAAEE 
INFUT#1S,E1.E# 


CLOSE Z: 


RH :REN SUITE 


S'P ERREURS OISQUE 
-E3,Ed4 
THEN PRINT"ERREUR DISQUE 2" 2PRINT 


LOSE 15 
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# 


TON tte tettet+t+++ 


RSS rS TETE TS) EE 


ET S"ESV MES! 


+ "Ed 28TO0F 


Anti-scratch 

Programme pour Commodore 64 
et lecteur de disquette 

Auteur Jean-Pierre Lalevée 
Copyright LIST et l’auteur 


Tableau 3 
Le catalogue 


CRTC EC PT A 
= MIHVERS CAF" 

3 TRANSFERT GRRFH" 

= COPIE ECFAN H.R," 

& “'MULTE" 

1 "GROS CAFA" 

az "ELEMENT TEST" 

a "SUBLOG $rzau" 

ë 


28 BLACKS FREE, 


ble et disponible au catalogue, un fichier 
de ce type se charge tout à fait norma- 
lement en mémoire (si c’est un PRG, 
évidemment !}. Il devient alors rigou- 
reusement indestructible sous l’effet des 
commandes utilisées habituellement : 
SCRATCH “titre” ou PRINT+#15, 
‘SO: titre”’ resteront catégoriquement 
sans effet. 


Lors de l'affichage du catalogue, 
cette nouvelle propriété sera signalée par 
le SED sous la forme d’un ‘‘< *” inscrit 
en fin de ligne (tableau 3). La remise à 
0 du bit 6 sera tout à fait suffisante pour 
supprimer cette protection logicielle, et 
tout pourra rentrer dans l’ordre. 


Tel est donc le but du programme que 
nous vous soumettons. Ce troisième uti- 
litaire (les deux précédents sont parus 
dans LIST 3 et LIST 4) vous permettra 
de modifier — mais avec toute la sécu- 
rité requise — un seul bit à la fois sur 
la disquette ! Il vous suffira d’indiquer 
au programme le titre du fichier à pro- 
téger ; le reste se fera automatiquement. 


Cette bibliothèque d’utilitaires pour 
disquettes sera complétée une prochaine 
fois par l'étude d’un programme qui 
permettra de remettre au catalogue les 
fichiers détruits imprudemment ou par 
erreur. 


On pourra s'attaquer ensuite au pro- 
blème des fichiers restés ouverts en écri- 
ture, et dont le contenu était jusqu’à 


présent presque irrémédiablement 
perdu. 
Jean-Pierre LALEVÉE 
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MISEZ PTIT : OPTIMISEZ 


UN CENTRE 
INTROUVABLE 


$ 1 jongler avec la pile opérationnelle de votre HP-41 C, 

traquer la milliseconde perdue et rogner le moindre octet est 
votre pain quotidien. Ou si, à l'inverse, vous échappe parfois un peu 
de la subtile recherche des programmes en Notation Polonaise Inverse... 
Alors voici qui doit vous intéresser. En matière de programmation, 
est-on jamais certain d’avoir x fait aussi bien que possible ? 
Le mieux peut-il être l'ami du bien ? Dans cette rubrique, 
les défis se succèdent : des programmes toujours plus 
courts, plus rapides... Et les records vivent ! 


Imaginez une aiguille dressée vers 

le ciel, un triangle de carton et 
l'exercice suivant : poser en équilibre le 
triangle sur la pointe de l’aiguille. Un 
seul point de la surface correspond à cet 
équilibre : le centre de gravité. 


Trouver où est ce point, tel est le défi 


que Pierre Lison a lancé dans LIST 4. 
Connaissant les coordonnées X et Y 
chacun des trois sommets du triangle 
(voir le graphe) calculer celles du cen- 
tre de gravité. 

La formule de calcul est toute simple 
et n’a posé de problème à personne. En 
revanche, sa programmation a donné 
lieu à un festival de contorsions logiciel- 
les. On a même pu voir (ô scandale !) : 
l'instruction STOP mise à toutes les sau- 
" ces ! (Je tairai les noms...) 


(42,58) 


N'oublions jamais la règle première 
de nos optimisations : tout programme 
de Misez P'tit doit être rédigé comme 

Centre de gravité un sous-programme." La totalité des 
d'un triangle données lui est fournie avant l’exécu- 

tion, tous les résultats sont livrés ensem- 
dont on connait ble en fin d'exécution. Jamais, donc, de 
les sommets Pa  STOP dans un programme optimisé. 
leurs coordonnées On doit considérer que l’opérateur n’a 
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pas à intervenir au cours de la résolu- 
tion du problème. 

Les coordonnés des trois sommets 
sont notées, dans un repère orthonormé 
classique (X1, Y1), (X2, Y2) et (X3, 
Y3). On calcule celles du centre de gra- 
vité en en effectuant simplement la 
moyenne : (X1 + X2 + X3)/3 et 
(Y1 + Y2 + Y3)/3. 


La HP-41 C peut évidemment calcu- 
ler cette moyenne avec ses fonctions sta- 
tistiques : Z + et MEAN. Outre le fait 
que ces instructions sont assez lentes, on 
ne les emploiera pas car elles affectent 
5 registres de la mémoire autres que la 
pile opérationnelle. Par principe, donc, 
MEAN est exclue. 


La solution est plus directe encore. Si 
trois nombres sont dans les registres X, 
Yet Z de la pile, leur moyenne est obte- 
nue par : + + 3/, tout simplement. 

Mais ici, pour le calcul du centre de 
gravité, on a six chiffres et non pas trois 
(trois fois X et Y). Comment faire ? Pas 


MOD sans MOD 


Les autres calculatrices en Notation 
Polonaise Inverse ccmmenceraient-elles 
à relever les défis tandis que les adeptes 
de la HP-41 se reposent sur leurs lau- 
riers ? 

Après une très sérieuse cure d’optimi- 
sation, le problème de la réalisation de 
la fonction modulo sans MOD, cas des 
« petites » machines, est revenu grâce à 
Bruno Piguet (Nantes). 

De 19 octets et 2 mémoires, l’auteur est 
parvenu à seulement 10 octets. Voici son 
record. Qui dit mieux ? 


L’algorithme employé est toujours A- 
B+INT(B/A) qui calcule — par définition 
de modulo — À MODULO B. Introduire 
A puis B, le résultat se trouve en X après 
l'exécution. 


QUI DIT MIEUX ? 


N sait que par deux points ne passe qu’une droite. D’ailleurs, si l’on 
a deux droites, on peut parier qu’elles ne sont qu’une. 


Connaïssant les coordonnées des deux points (X1, Y1) et (X2, Y2), retrou- 
vez l’équation de la droite (il n’y en a qu’une...) qui, justement, passe par 


ces deux points. 


On rappelle qu’une droite dans un repère (O, X, Y) est définie par l’équa- 
tion Y =aX + b. Ce sont donc les deux coefficients a et b que le programme 
doit trouver sachant que Y1 = aX1 + bet, en même temps, Y2 = aX2 + b. 


Y 


9 2,2 


8=0,41666... 
b=2,08333... 


7 


En 13 octets et sans aucun registre de mémoire, mon programme opère 
en 28 centièmes de seconde pour trouver l’équation de la droite passant par 
les points de coordonnées (13, 17) et (3, 11). 


NDLR : et pas de STOP dans vos programmes ! 
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Pierre LANGLOIS 


question, comme on l’a vu, de mettre 
de STOP dans la routine (cela donne- 
rait + + STOP + + 3 STO/Z / en 
introduisant d’abord X1, X2 et X3 puis 
dans un second temps Y1, Y2 et Y3). 
Alors, on doit changer le mode d’intro- 
duction des coordonnées : ne séparons 
pas X de Y. 


. Deux résultats 


n un seul coup 


Il suffit de programmer + + 3/ pour 
calculer d’un coup la moyenne des trois 
sommets exprimée sous une forme déci- 
male (X,Y) soit (XI+X2+X3,Y1 + 
Y2+ Y3). Stop ! Bien sûr, cela ne fonc- 
tionne correctement qu’avec des coor- 
données X et Y entières (on doit pou- 
voir les exprimer sous la forme X, Y) 
et il ne faudrait pas que la partie déci- 
male du couple X, Y déborde sur les X 
à cause de retenues dans l’addition de 
Y1 + Y2 + Y3. 


Réfléchissons. D’une part, tout nom- 
bre à virgule de la HP-41 C peut être 
exprimé sous la forme d’un entier à divi- 
ser par une puissance de dix (3,1 vaut 
31/10). Rien n’empêche donc de traiter 
le cas des entiers, celui des décimaux 
n’en étant qu’une version particulière 
{tout sens mathématique perdu !). On 
divisera en fin de traitement les deux 
coordonnées du centre de gravité par la 
puissance de dix qui aura été nécessaire 
à leur expression entière. 


Quant au débordement des Y sur la 
partie entière du nombre X,Y, cela ne 
peut advenir. En effet, cela se conçoit 
même intuitivement : si le plus grand 
des trois Y1, Y2 ou Y3 « tient » sous sa 
forme décimale (par définition puis- 
qu’ils sont ainsi introduits), la moyenne 
(YI1+Y2+Y3)/3 ne peut que lui être 
inférieure ou égale (égale si 
Y1=Y2= Y3). Ainsi (X1,99 + X2,99 + 
X3,99)/3 donnera ((X1 + X2 + X3),99). 
CQFT (ce qu’il fallait... trouver). 


Évidemment, si les coordonnées X et 
Y d’un des sommets au moins ne pou- 
vaient s’exprimer dans les dix chiffres 
autorisés par la HP-41 C pour l'écriture 
d’un nombre, il faudrait traiter deux 
fois le problème — avec le même pro- 
gramme — et calculer d’une part 
(X1+X2+X3)/3 et d’autre part 
(YI1+Y2+Y3)/3. A suivre. 


Jean-Christophe.KRUST 
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UTILITAIRE POUR PB-700 


GRAND DÉFILÉ 
SUR PETIT ÉCRAN 


E terme « menu » est souvent employé en 
informatique pour désigner un ensemble de 
propositions parmi lesquelles l'utilisateur doit 
faire un choix. Dans la vie courante, le menu fait 
plutôt penser à un bon repas. Alors, si pour une 
fois un menu d'ordinateur nous mettait l'eau à la 
bouche, en défilant à l'écran ? 


Le programme proposé ici est un 

prétexte pour illustrer le fonction- 
nement d’un scroliling. Un véritable 
menu (avec poulet, foie gras, moules, 
etc.) va défiler à l’écran d’un PB-700. 
Ce défilé (ou scrolling) pourra trouver 
d’autres applications : agenda, tarif, 
répertoire, etc. 


Le fonctionnement du programme est 
des plus simples : à la mise en route, les 
trois premiers plats de la liste apparais- 
sent, celui du haut étant désigné par un 
tiret. Une pression sur la flèche — fait 
descendre ce tiret ; au-delà du troisième 
plat, c’est l’écran qui se déplace sur la 
liste, vers le bas. A l’inverse, la touche 
<— effectue la remontée, vers le haut de 
la liste. On recrée ainsi le SCROLL que 
possèdent beaucoup d’ordinateurs de 
table. 


Quand le tiret est en face du plat 
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choisi, une pression sur la touche 
« retour chariot » renvoie à un sous- 
programme particulier à ce plat : cela 
peut être une recette, une explication, 
ou autre chose. 


Avant de démarrer l’exécution, il est 
nécessaire d’apporter certaines adapta- 
tions à ce programme. 


Ligne 6 : les valeurs données aux 
variables U et V correspondent respec- 
tivement au nombre de plats (ici 8) et 
au nombre de signes par plat (ici 18). 


Lignes 16 à 19 : les DATA sont rem- 
plis avec les noms des plats ; ils doivent 


tous avoir le même nombre de signes 
pour éviter des affichages parasites pen- 
dant le défilement (compléter avec des 
espaces, si nécessaire). Chaque plat doit 
commencer par un chiffre qui est utilisé 
pour effectuer le branchement éven- 
tuel : par exemple, si le plat «7-TRIPES 
LYONNAISE» est choisi, le branche- 
ment a lieu vers la ligne 700, où se 
trouve le sous-programme particulier à 
ce plat (la recette, l’explication, la com- 
position, ou autres). 


Traduction des codes CHR$ 
utilisés dans le programme 


ae € Touche 
29 flèche vers la 
gauche <— 
28 flèche vers la 
droite — 
13 ‘| flèche « retour 
chariot » 
95 tiret — 


Enfin, il reste à supprimer toutes les 
REMSs pour deux raisons : l’économie 
« d’huile de coude », et l’économie 
d’octets. Un utilitaire se doit d’être le 
plus court possible ! 


Benoît DE CABISSOLE 
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Scrolling 

Programme pour PB-700 
Auteur Benoît de Cabissole 
Copyright LIST et l’auteur 


REM SCROLLING 

REM Initialisation du defilement 
REM  UENb de plats 

REM UENE de sishnes Par Plat (18 m 
axi) 

CLEAR :CLS' 

U=8:U=18 


DIM A$SCUDXU: J=G:L=U: FOR 1=1 TO L:R 
EAD ASCID:NEXT I:GOSUB 2@ 
REM Branchement au Plat choisi--- 
G=UALCLEFTSCASCI+1);: 1): ERASE A$:C 
LS :GOSUB 12GXxG:RESTORE :G0T0O 1@ 
REM Definition des plats en Data-- 
DATA'"1-POULET À LA GRQ.";,"2-RILLON 
S TOURAINE", "3-MOULES ALA CREME" 
DATA"4-BROCHET BEURRE B",'"5-FONDUE 
SAUOYARDE"; "6-FOIE GRAS CANARD" 


DATA "7-TRIPES LYONNAISE"; "8-BOUDI 
N TRUFFE " 

REM —-——- Debut du ss-rrosramme sc 
rollins----- 

REM 


LOCATE BG, Q:PRINT CHR$(95);ASC1):LO 

CATE 1: 1:PRINT A$C2):LOCATE 1:2:PR 

INT A$(3) 

I=J: GOSUB 935 

IF K$=CHR$S(13) THEN BEEP 1:1F I=DL 
THEN I=L-1:RETURN ELSE RETURN 

REM----Defilement Lers le bas ---- 

IF K$=CHR$S(28) THEN J=J+1:IF J>L T 

HEN J=L 

REM---Defilement Lvers le haut ---- 

IF K$=CHR$S(29) THEN 65 ELSE IF K$< 
DCHRSC28) THEN 25 

IF J<3 THEN LOCATE G,I:PRINT " ":L 

OCATE @; J:GOTO 60 

IF J+12L THEN 25 


LOCATE @,2:PRINT " ":LOCATE 0,3 


; D CADMTE DE 
EH, VENEZ. Voir JA ue 


Œ Que T'Ai TROUVÉ ! 
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D 


PRINT CHR$SCI5);ASCJ+1): GOTO 25 
J=J-1:IF J=-1 THEN J=@ 

IF J<2 THEN 938 

IF J=L THEN CLS 

REM —--- Nouvel affichage --- 
LOCATE 1,:@:PRINT A$(J-1):LOCATE 1; 
1: PRINT A$CÇJ) 

LOCATE @,2:PRINT CHR$C95);ASCJ+1): 
GOTO 25 

FOR H=G TO 2:LOCATE 1:H:PRINT A$CH 
+1D2:NEXT H:GOTO 45 


K$=INKEYS:IF K$="" THEN 95 ELSE RE 


TURN 

REM 

REM--- SUITE DU PROGRAMME ------- 
—(branchements)------- 

PRINT "RECETTE": GOSUB 95@:RETURN 
PRINT "RECETTEZ2":GOSUB 95@:RETURN 
PRINT "RECETTE3":G6OSUB 959:RETURN 
PRINT “RECETTE4'":GOSUB 959:RETURN 
PRINT "RECETTES": GOSUB 95@:RETURN 
PRINT "RECETTES": GOSUB 95@:RETURN 
PRINT "RECETTE/":GOSUB 958:RETURN 
PRINT "RECETTES": GOSUB 95@:RETURN 
REM  —---TEMPORISATION --- 

FOR N=i TO SYS:NEXT N:RETURN 


. UNE PIÈCE KARE ! 
ILS APPELAIENT A 
ON "ORDINATEUR"! 


C'EST DE 
a( LARTNAIF 
DE 1984. 


+7 
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LIST A TESTÉ 


LE BASIC DE L'HECTOR 2 HK+ 


ECTOR existe en plusieurs modèles : Hector 1, Hector HRX, 

Hector 2 HR +. C’est le Basic de ce dernier qui nous intéresse ici. Sur 
cette version, il est résident en mémoire morte, mais les possesseurs de 
HRX (Forth résident) pourront se le procurer sous forme de cassette ou 
de cartouche. Notons que l’on trouve aussi une version plus 


étendue de ce Basic maïs elle n’est 
disponible que sur disquette. 


L'Hector dispose, une fois n’est 

pas coutume chez les familiaux, 
d’un excellent clavier, agréable au tou- 
cher et, qui plus est, AZERTY accen- 
. tué. On regrettera simplement l’absence 
de pavé numérique et de bloc d’édition 
séparé. Bien présent en revanche, à la 
droite du clavier, un magnéto-cassette 
intégré qui donne toute satisfaction à un 
détail près : il n’a pas de compteur, ce 
qui, évidemment, rend problématique le 
repérage des programmes sur la bande. 


S’il est un élément spécialement 
important pour le programmeur, c’est 
bien l’éditeur. Sans ce programme, la 
machine n’est plus guère utilisable. Cet 
intermédiaire indispensable a été parti- 
culièrement bichonné sur Hector. On y 
accède de deux façons : le mode Basic 
et le mode Edit. Avec le premier, que 
tout le monde connaît, il est possible 
d’entrer ou de corriger une ligne en uti- 
lisant la commande EDIT suivie d’un 
numéro de ligne. Celle-ci apparaît et 
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nous pouvons 
alors insérer ou suppri- 
mer des caractères à l’intérieur 
de la ligne appelée. A signaler cependant 
qu’il est possible de dupliquer une li- 
gne en changeant simplement son nu- 
méro. 


Si l’on tape EDIT seul, on entre dans 
un autre mode où les commandes clas- 
siques ne sont plus exécutables en mode 
direct, à l'exception de RUN. Nous dis- 
posons alors de nouvelles commandes 
très puissantes : 

e RENUM qui renumérote tout ou par- 
tie d’un programme, 

e AUTO qui numérote automatique- 
ment les lignes, 

e DELETE qui détruit tout ou partie 
d’un programme. 


Voilà qui paraît bien classique, mais 
attendons la suite : 


e EXTRACT 
permet, comme son nom 
l'indique, d’extraire une partie du pro- 
gramme en mémoire, les autres lignes 
étant supprimées (c’est, en somme, le 
contraire de DELETE) ; 

. avec LOCATE, on localise une chaîne 
de caractères ; 

e LAST fait réapparaître la dernière 
ligne ; 

. enfin, MERGE et APPEND permet- 
tent de charger un programme en 
mémoire sans perdre celui qui s’y trouve 
déjà. Si MERGE ne fait que charger le 
second programme (en effaçant éven- 
tuellement les lignes du premier qui che- 
vauchent celles du nouveau venu), 
APPEND fait mieux. Il le charge à la 
suite du premier en le renumérotant si 
nécessaire, dix numéros après la der- 
nière ligne de celui-ci. 

Les instructions de contrôle, quoique 
sans surprise, proposent des utilisations 
originales. 

Si ON...GOTO est présent, l’instruc- 
tion GOTO peut également être suivie 
d’une expression algébrique. Ainsi les 
séquences : 

10 ON A GOTO 20,30,40,50 et 
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10 GOTO 1i0+10+xA 


sont équivalentes si A est un entier com- 
pris entre 1 et 4. 


C’est aussi valable pour GOSUB. 


La gestion des boucles FOR...NEXT 
est, quant à elle, assez curieuse. La 
variable suivant le NEXT n’est pas prise 
en compte par le Basic, son rôle est 
purement documentaire. Par exemple, 
10 FOR I1=1 TO 10. 

20 NEXT A 

ne produit aucun message d’erreur. Il 
en est de même pour la séquence : 

10 FOR 1=1 TO 10 

20 FOR J=1 TO 10 

30 NEXT I 

40 NEXT J 


Notons d’autre part qu’une ligne 30 
NEXT : NEXT : NEXT peut s’écrire 
30 NEXT,, 


Dernière curiosité au chapitre des 
boucles FOR...NEXT, la forme 10 FOR 
1,J,K = 1 TO 10 est autorisée et équiva- 
lente à 101=0:J=0:FOR K=1 TO 10. 


THEN peut être suivi de ELSE et 
PRINT USING permet de formater les 
affichages. 


L’instruction REM est présente, bien 
sûr, mais là encore, les choses ne se pas- 
sent pas comme d’habitude. En effet, 
le Basic d’Hector remplace systémati- 
quement toutes les REMs par des 
apostrophes. 


Les traditionnels READ, DATA, 
RESTORE sont également disponibles. 
RESTORE peut être suivi d’un numéro 
de ligne ou d’une expression algébrique, 
mais les lignes de DATA doivent con- 
tenir soit des constantes, soit des chaî- 
nes de caractères entre guillemets. 


Puisque nous en sommes à parler des 
chaînes, abordons leur traitement. Il est 
des plus classiques : LEFTS$, RIGHTS, 
MID$, STR$, ASC, VAL et LEN. En 
ce qui concerne MID, notez que si le 
dernier paramètre n’est pas spécifié, 
tous les caractères sont pris en compte 
à partir de celui qu’indique le premier 
paramètre. Par exemple, MIDS$(‘‘ABC 
DE””’,4) extrait DE. Si cette séquence est 
équivalente à MID$(‘ABCDE”’,4,2), 
elle a l’avantage d’être plus rapide et 
plus concise, surtout quand la longueur 
de la chaîne n’est pas connue à l’avance. 


A côté d’INKEYS (saisie d’un carac- 

‘ tère au clavier), on dispose d’INSTR$ 
(nombre de caractères) qui est une sorte 
d’INPUT attendant la frappe du nom- 
bre de caractères spécifiés. La touche 
ENTER est alors inopérante et la 
syntaxe est la même que pour INKEYS, 
c’est-à-dire du type A$ = INSTRS(N). 
Les fonctions mathématiques dispo- 
nibles sont relativement peu nombreu- 
ses : SIN, COS, TAN, ATN, EXP, 
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RS SE 


LOG, SGN, INT, SQR. Heureusement, 
il est possible d’en définir de nouvelles 
grâce à DEFFN. Une curieuse fonction 
PI (expression) donne le nombre PI 
multiplié par une valeur fournie : PI(2) 
donne 6,28319. 


Les fonctions logiques sont AND, 
OR et NOT, et le hasard a sa place avec 
RND mais, comme il est d’usage chez 
Micronique, cette fonction n’utilise pas 
la syntaxe la plus courante. Ainsi 
RND(3,6) retournera un nombre réel 
compris entre 3 inclus et 6 exclu. RND 
est complété par l'instruction SEED qui 
force la valeur de la racine servant au 
calcul du nombre aléatoire. Pour une 
même valeur de SEED, la série de nom- 
bres aléatoires générés sera identique. 
La séquence SEED TIME(1) initialise la 
racine de façon aléatoire et elle équivaut 
au RANDOM de Microsoft. 


Variables : 


pas de quoi se vanter 


Hector ne connaît que deux types de 
variables : les variables alphanuméri- 
ques, reconnues comme telles 
lorsqu’elles sont suivies du symbole $ 
(instruction DEFSTR n'existe pas ici), 
et les variables numériques (nous tou- 
chons là le point faible de la machine) 
codées sur quatre octets. Ces dernières 
ne fournissent que six chiffres signifi- 
catifs qui sont compris entre 1,701 E38 et 
— 1,701 E38. (Pas de variables de type 
entier, ni de réels en double précision.) 
Le nom des variables peut comporter 
autant de lettres que désiré, seules les 
deux premières sont significatives. 


L’instruction DIM autorise la décla- 
ration de tableaux dont le nombre des 
dimensions ne sera limité que par la Ion- 
gueur maximum d’une ligne (222 
caractères). 


Au chapitre de la manipulation des 
variables, nous découvrons des possibi- 
lités assez étendues. C’est ainsi que l’on 
peut procéder à plusieurs affectations 
simultanées : la séquence A,B,C,D 
(5,2)=8 est autorisée. D’autre part, 
l'instruction SWAP échange le contenu 
de deux variables alors que les fonctions 
MIN et MAX fournissent respective- 
ment la plus petite et la plus grande 
valeur de deux expressions algébriques. 

Les possibilités graphiques d’un ordi- 
nateur, surtout s’il s’agit d’un « fami- 
lial », peuvent contribuer à son succès … 
ou à son échec commercial. Voyez l’Ap- 
ple II qui, en son temps, fut le premier 
à offrir des possibilités élevées dans ce 
domaine. Micronique l’a bien compris 
et les progrès réalisés depuis l’Hector 1 


sont énormes. La définition graphique 
du 2 HR+ est de 243 x 231 points en 
quatre couleurs à choisir avec COLOR 
et BRIGHIT, dans une palette de 16 cou- 
leurs (en comptant la demi-luminosité). 


L’instruction PLOT possède deux 
syntaxes. La première (de la forme 
PLOT X,Y,C) allume un point de cou- 
leur € aux coordonnées X,Y. La 
seconde (de la forme PLOT 
X,Y,L,H,C) allume un rectangle de 
couleur C, de longueur L et de hauteur 
H dont le coin supérieur gauche a pour 
coordonnées X,Y. LINE aussi possède 
deux syntaxes. LINE X1,Y1,X2,Y2,C 
allume une ligne de couleur C allant du 
point X1,Y1 au point X2,Y2. Alors que 
LINE X1,Y1,C trace une ligne com- 
mençant au dernier point spécifié par le 
précédent LINE et se terminant en 
XI, YL: 


Toujours au chapitre des instructions 
graphiques, citons la très puissante ins- 
truction SCROLL qui permet de dépla- 
cer l’ensemble de l’image dans toutes les 
directions (y compris en diagonale !) 

FLASH enfin est destiné aux jeux 
d’action. Il fait « flasher » tous les 
points de l’écran allumés dans la cou- 
leur spécifiée en utilisant la complémen- 
taire de cette couleur. 


A l'instar du Macintosh et du Sinclair 
QL, il n’existe pas de véritable mode 
texte, l’affichage des caractères s’effec- 
tuant en mode graphique. Le système 
doit écrire dans plusieurs octets pour 
provoquer l'affichage d’une seule lettre. 
L'écriture du texte est donc assez lente. 
Mais bien des fantaisies sont permises ; 
il devient par exemple possible de pla- 
cer les caractères au pixel près et de pra- 
tiquement superposer des lettres en uti- 
lisant plusieurs couleurs différentes. 


C’est l’instruction CURSOR X,Y qui 
positionne le curseur à la position dési- 
rée, X étant compris entre 0 et 242, et 
Y entre O et 230. 

SCREEN permet de redéfinir la fenê- 
tre d’affichage : SCREEN X,Y,L,H 
définit une fenêtre dont le coin supérieur 
gauche est en X,Y, dont la largeur est 
L et la hauteur H. Cette opération s’ef- 
fectue au niveau du pixel, le plein écran 
correspondant à un SCREEN 13,230, 
230,230. WIPE annule le SCREEN en 
cours et PEN permet de définir la cou- 
leur d’un affichage effectué par l’ins- 
truction PRINT. 


L'instruction OUTPUT rend possible 
LIST - PAGE 59 


LIST À TESTÉ 


LE BASIC DE L'HECTOR 2 HR + 


un affichage de texte à partir de la posi- 
tion spécifiée et même en dehors de la 
fenêtre spécifiée par SCREEN, ce que 
le couple CURSOR-PRINT n'autorise 
pas. 

Enfin, avec la fonction POS, nous 
obtenons des informations concernant 


Liste des mots du Basic 
de l'Hector 2 HR + 


ABS NOT 
AND ON 
ASC OR 
ATN OÙT 
BRIGHT OUTPUT 
CHR$ PAUSE 
CLEAR PEEK 
COLOR PI 
CONT PLOT 
cos POINT 
CURSOR PORE 
DATA POS 
DEF POT 
DIM PRINT 
EDIT READ 
ELSE REM 
END RESTORE 
ERROR RETURN 
EXP REWIND 
FIRE RIGHTS 
FLASH RND 
EN RUN 
FOR SAVE 
FREE SCREEN 
GOSUB SCROËLL 
GOTO SEED 
SGN 
SIN 
INP SPEED 
INPUT SPC( 
INSTRS STEP 
INT STOP 
JOY STR$ 
LEFTS$ SQR 
LEN SWAP 
LET TAB( 
LINE TAN 
LIST TAPE 
LLIST THEN 
LOAD TIME 
LOG TISET 
LPRINT TO 
MAX TONE 
MIDS$ USING 
MIN USR 
NEXT VAL 
NEW WIPE 
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l’état de l’affichage et de l'imprimante : 
e POS(1) indique le numéro de la 
colonne du dernier caractère affiché, 
e POS(2) fait de même pour l’impri- 
mante, 

e POS(G3) retourne l’abscisse du premier 
point suivant le dernier affichage, 

e POS(d) retourne l’ordonnée du point 
supérieur gauche du prochain caractère 
à afficher. 

Dans un autre domaine, il faut bien 
Pavouer, l’Hector n’est pas très musi- 
cien et seules deux instructions nous 
sont proposées. TONE X, Y produit un 
son de hauteur X et de durée Y. Une 
précision cependant : les deux paramè- 
tres ne sont pas indépendants et la durée 
sera constante si le produit de X par Y 
reste constant. L’exécution de TONE 
10,5 et celle de TONE 20,5, par exem- 
ple, donnent des sons de durées 
différentes. 


SOUND X,Y quant à lui, émet un 
bruit dont la nature est déterminée par 
X et Y. Il n’y a pas de règle évidente et 
seuls des tâtonnements vous permet- 
tront de trouver ce que vous cherchez. 


Les sauvegardes sur cassette s’effec- 
tuent à la vitesse honorable de 1 500 
bauds et elles semblent fiables. Concer- 
nant la gestion du cassettophone intégré, 
c’est sa portion congrue : SAVE et 
LOAD permettent lectures et sauvegar- 
des de programmes. Les données ne sont 
sauvées que sous forme de tableaux 
numériques. Les éléments d’un tableau 
A(20) seront sauvés avec un SAVE*A et 
lus par LOAD*A. 


TAPE allume et éteint le magnéto- 
phone alors que REWIND ne permet 
que la mise sous tension, la mise hors 
tension étant alors obtenue par la frappe 
de n’importe quelle touche. Comme son 
nom l’indique, cette instruction sert sur- 
tout à rembobiner la bande magnétique. 


Hector 2 HR+ possède aussi une 
horloge interne gérée de manière fruste : 
TISET la remet à zéro et TIME(x) en 
autorise la lecture, x étant un multipli- 
cateur. Ainsi, la séquence 
10 PRINT TIME{(50) 


_}J 20 GOTO 10 


Fiche technique de l'Hector 2 HR + 


Constructeur : Micronique 

Prix public : 4 390 FF 

Mémoire vive : 48 Ko 

Mémoire morte : 16 Ko 

Langages : Basic résident, Forth, Pascal, 
Assembleur 

Affichage texte : 25 lignes de 58 

| caractères 

Vitesse cassette : 1 500 bauds 

Calcul numérique sur : 7 chiffres 


affiche le nombre se secondes écoulées 
depuis la dernière mise à zéro. En rem- 
plaçant 50 par 3000, nous aurons les 
minutes, etc. 


Deux autres instructions utilisent 
l'horloge interne : PAUSE (durée) qui 
suspend l’exécution du programme, et 
SPEED(x) qui en fait varier la vitesse. 
A la mise sous tension, SPEED vaut 0 
et la vitesse est maximum. 


Le Basic de l’Hector donne accès au 
langage-machine. Rien d’extraordi- 
naire, mais le minimum y est. 


Avec PEEK et POKE, vous pourrez 
lire et écrire en mémoire, avec OUT et 
INP, gérer les ports d’entrée-sortie du 
Z80 et avec USR appeler un programme 
en langage-machine. La syntaxe origi- 
nale de cette dernière instruction la rend 
très souple d’emploi, USR x,y, par 
exemple, lance l'exécution d’un pro- 
gramme commençant à l’adresse x, la 
valeur y étant placée dans le registre DE 
du Z80. 


USR x;t1,t2,13,... effectue la même 
opération, à ceci près que DE pointe 
cette fois sur une table de paramètres 
contenant les valeurs t1,t2,t3,... 


À la seule lecture de la liste des ins- 
tructions disponibles, le Basic de l’Hec- 
tor 2 HR + peut paraître classique. Il 
recèle en réalité une bonne dose d’ingé- 
niosité, certaines de ces instructions 
s’utilisant selon plusieurs syntaxes. Le 
revers de la médaille est que l’on s’écarte 
sensiblement du pseudo-standard ins- 
piré, notamment, par Microsoft. 
L'adaptation de programmes écrits dans 
des Basic d’origine différente risque 
donc de poser certains problèmes. 


| Josette GODEFROY 
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AVEC 


VEZ-vous essayé le 

cubisme sur l'écran 
de votre Amstrad ? Ce 
programme vous fournit 
le minimum nécessaire : 
droites, rectangles, 
triangles et cercles, 
sans oublier la gomme. 


AMSTRAD-GRAPHE 


LA RÈGLE 


ET LE 


Le mois dernier (LIST 5, page 

76), nous avons vu comment des- 
siner sur une machine MSX. Voici un 
autre programme dessinateur de con- 
ception sensiblement différente et des- 
tiné cette fois-ci à l’ Amstrad. 


Chacune des commandes élémentai- 
res (au total une quinzaine) est accessi- 
ble en pressant une seule touche. Ainsi, 
pour dessiner une droite, on utilisera 
successivement trois commandes : on 
commence par une pression sur V (vali- 
dation d’un point, c’est-à-dire ici du 
début de la droite) ; on déplace alors le 


COMPAS 


curseur en utilisant les flèches et l’on 
obtient le tracé avec une pression sur la 
touche D (figure 1, page suivante). 


Une autre façon 


de dessiner 


S'il s’agit de dessiner un cercle (plein), 
on appuie sur V (validation d’un point, 
en l’occurrence le centre du cercle), puis 
on déplace le curseur jusqu’à l’un quel- 
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AMSTRAD-GRAPHE _ 


Dessinateur 
Programme pour Amstrad! 


Auteur Jacques:Boisgontier | 
Copyright LIST et l’auteur 


19 me DESSINATEUR: 

24 : 

34 ce=l:cf=ù couleur ecriture et fond 
49 INK 4.26 fond blanc 

58 INK 1. ü encre noire 

66 PAPER W:PEH 1 stylo 1 

79 MODE 1 

86 LOCATE 1,18:PRIHT "CLAVIER MAJUSCULE" 


168 
11@ 
129 
138 
14 
159 


168 : 
174 


184 


194 t 
264 * 


218 
228 
236 


246 * 


259 


268 © 


274 
289 
298 
368 
314 
324 
339 
34 
354 
364 
378 
389 
398 
4ag © 
419 
424 
42% 
442 
459 


469 * 


474 
42a 
49 
599 
519 
524 


538 * 
549 * 


35û 
364 


574 « 


Sa 
594 
590 
614 
624 


649 
654 


660 * 


678 


IF C=243 THEH 
IF C=244 THEH 
IF Ceaat THEN 


FOF: 


PLOT 


LOCATE 1:29 :PRIHT 
LOCATE 


J 


"PREMIER POINT :fleches Pui 
"ZEME POINT: fleches pui 
“Cidroite F'rectanale 
“Cicercle É Lancia t Pour 
“COULEUR : 


1:21:PRINT 
3,22:FRINT 
3,23:PRIHT 
3, 24:PRINT 
3,23 :PRINT 


ya=307 


1:25 


CURSEUR CLIGHOTANT 


2 THEH 


GOSUE 424 
GOSUE 558 


HC Ce ang THEH CEsYALI CS à 
rectanile Pléin 


STEP SGMG 44 a 0 
sslce:DRAU %,41,ce 


1=43 TD 3 


MEXT 41 
RETURH 


du=SORC 2€ de 
FLOT xa+ids,ua+c 


rc LE Plain 


:cei CEA 


<atd<,ua-du,ce 


HEXT dx 
FETUFH 


valider 2 
d=SQRs 


Cab 


RETURH 
630 * 


fi 
’ 


E 
, 


688 


639 
762 


# 


# 


714 


29 
F3 
74 
750 
768 
F7@ 


788 * 
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Permet de de: 
des rectanile 
#1 


ssiner des droites 

et cercles Pleins 

une droite:  1‘aPPuyer 
2dep laser 


Four tracer Eur 


Pont tracer Un Cercle: l'aFPuuer sur 


Pour effacer utiliser ‘F°' et 


"R’, 
2F* 


Avec 
Four 


«le curseur 


Pour des figures discontinuesz 


le © 


‘utiliser ‘W° 


spi 


& Points" 


F:FOHD € GOMMER :" 
“"A'anmulation derniere droite" 
‘ Foint Precedent 


urseur et aPPuser sur 


sus 
ZdePlacer le curseur et 


3FPuyer sur 


n'aFParait Que sur les zones colorie CLR 
faire aFFaraitre 3 nouveau le curseur.fraPPer 


1", 


conque des points de la circonférence et 
on appuie sur C (figure 2). 


Le triangle plein s’obtient en dési- 
gnant les deux premiers sommets avec 


‘D’ 


2c° 


ÈGLE ET LE COMPAS 


V puis le troisième avec Y. C’est le seg- - 
ment de droite reliant Y au deuxième 
sommet V qui pivote sur lui-même pour 
« remplir » le triangle. 


Figure 1 


Troisième 


V 
Premier point 


Deuxième pcint 


Figure 2 


[@: 
pour 
la circonférence 


e 
V pour 
le centre 


Grâce à ce triangle plein, on peut 
construire un grand nombre de figures, 
en fait toutes celles dans lesquelles n’en- 
trent que des segments de droite (voir 
l’exemple du cube). Il remplace donc 
partiellement l’instruction PAINT qui 
existe sur d’autres matériels et notam- 
ment sur les MSX. 


Même principe pour le tracé d’un rec- 
tangle plein : V pour valider l’un de ses 
angles et R dès que le curseur est situé 
sur l’angle opposé. 


En utilisant la couleur de fond (tou- 
che F) pour colorier un motif, on efface 
bien entendu certaines parties du dessin, 
c’est la gomme. Enfin, une fois que le 
dessin est achevé, rien n’est plus facile 
que de l’archiver sur cassette en tapant 
SAVE ‘“XXX’,B,&C000,84000 ; les 
trois caractères entre guillemets sont au 
choix de l’utilisateur : ils servent à iden- 
tifier le fichier. 


Jacques BOISGONTIER 
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CURIOSITÉ 


LA ROUE 


NE TOURNE PLUS ROND 


la recherche des cycloides, nous avons 
découvert, dans LIST 4, ces courbes 


abstraites que décrivent 
des points de pièces 
rondes qui roulent. 
Mais le cercle lui-même 
n’est qu'une forme 


idéale de roue, et le sol bien 


plat une splendide utopie. 
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ET 


Imaginons une roue carrée ! Pour- 

quoi pas ? Il existe bien un type de 
sol particulièrement adapté à son 
emploi. La figure ci-dessus en est 
l'illustration. 


Plus loin encore, vers l’univers sha- 
dockien des mathématiciens pervers : 
voyez ce monstre spécialement conçu 
pour rouler sur un sol d’une très exem- 
plaire irrégularité ! (ou régularité, c’est 
selon). | 

Notre propos est — plus sérieusement 
—, sans entrer dans le détail des expli- 
cations mathématiques, de trouver le sol 


le plus adapté (son équation et le tracé 
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CURIOSITÉ 


LA ROUE NE TOURNE PLUS ROND 


correspondant) à une roue de forme 
quelconque (sachant son équation). 


Rapidement. On se donne donc une 
équation de roue : » = f (8) en coor- 
données polaires, on doit déterminer 
une autre courbe, celle du sol le plus 
adéquat. Cette adéquation s’apprécie 
« matériellement » par un roulis nul 
(type Rolls-Royce sur autoroute flam- 
bant neuve) et, plus mathématiquement, 
en posant que le pôle O (ou centre, voir 
figures) suive, dans le déplacement de 
la roue, une ligne droite horizontale. 


Ce sol idoine possède une équation 
donnée par : 


Xo e dT 


et, bien sûr, y = » 


Le programme ci-contre pour Sharp 
PC-1500 utilise ces formules pour des- 
siner le sol, les positions de la roue et 
l’axe. 


Il emploie une routine d’auto-pro- 
grammation de formules mathémati- 
ques du PC-1500 (Ordinateur de poche 
n° 11). Il n’est donc nécessaire que d’in- 
troduire la formule de la courbe, direc- 
tement, pour qu’elle soit programmée 
dans le Basic. 


Trois modèles de courbes sont édités 
en illustration : la spirale d’Archimède, 
le cercle et une courbe spéciale. 


D», 


Le programme trace les axes (ligne 
numéro 150), imprime les données de 
base (90 et 100), calcule l'intégrale de f 
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Homo mathématicus 


shadockien 


(T) dT de T, à T, (200 à 220) puis le 
tracé du sol (230). Les différentes posi- 
tions de la roue sont calculées (de 270 
à 370) et tracées. 


Après RUN qui lance l’exécution, 
indiquer la partition, c’est-à-dire le 
nombre de points à tracer sur la courbe, 
puis le nombre de roues à dessiner à 
intervalles réguliers et proportionnels à 


La roue ne tourne plus rond 
Programme pour PC-1500 
Auteur Christophe Masurel 
Copyright LIST et l’auteur 


IB:REM LA ROUE NE 
TOURNE PLUS R 
OND 
15: GOTO 
28: 


"E'RESTORE "f" 
: I=(PEEK R78BE 


39: 


48 


58: 


69: 


28: 


82: 


38 


198: 


—128)X256+PEEK 
&/8BF+6: INPUT 
MEQUATION ROUE 
=?"5J 
J=31679:FO0R 1= 
ITO I1-12+PEEK 
C1-/):1F PEEK 
J<213POKE I, 
PEEK J:J=J+1: 
NEXT I 

POKE 1,58, 241, 
153, 13: RETURN 
"A"RADIAN : 
CLERR : INPUT 
PARTITION:N="; 
N; "NB ROUES="; 
NR, "MAX DE PT-= 


"3PM 
INPUT ‘’BORNEB= 
“3 T8, "BORNE 1=" 
‘13 

GOSUB "E 

TEXT :CSIZE 1: 


COLOR B:LPRINT 
"PARTITION:";N 


LPRINT "NB RO 
UES: "; NR: 
LPRINT "MAX PT 
:"3Ppn 

LPRINT "BORNES 
15 TB" ST 
L:LPRINT 


LLIST 2B:LF 1 
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la distance de T, à T, (ci-après). Le 
maximum de points (max. de »)est, en 
quelque sorte, le coefficient d’échelle du 
dessin. Enfin, les bornes T,et T, défi- 
nissent l’intervalle de variation de la 
variable T dont l’équation f (T) définit 
la roue. 


Quant à cette équation, on l’intro- 
duira le plus simplement du monde, 
comme un message alphabétique (avec 
possibilité d’abréger d’un point les 
ordres du Basic) : SINT, par exemple 
pour la fonction de roue f (t) = sint. 


Avant toute chose, le programme 
écrit ces paramètres caractéristiques sur 
l’imprimante, on y trouvera donc (lis- 
tes ci-contre) trois exemplaires tracés à 
ne manquer à aucun prix. 


Que de roues n’est-on pas tenté 
d’imaginer.. Des fermées, à tangente 
au sol continue — ou non (« angles 
vifs »). Et des roues non fermées telle 
la spirale d’Archimède. Le mathémati- 
cien que rien n’arrête — surtout pas le 
réel — saura travailler sur des roues 
ouvertes, des profils qui s’interpénè- 
trent.. et le PC-1500 tracera. 


Christophe MASUREL 


PART 
NB R 
MAX 
BORN 
? 


29: 


ITION: 58 

QUES: 4 

PT: 48 

ES:-1.57079632 
4 

3 


"F'PT=18XT: 
RETURN 


119:REM INITIALISA 
TION 

128: NR=NR-1:Q=INT 
CN/NRD:CI1=Q:J= 
1: SG=2: IN=g: C0 
z]195/PM 

138:R=CTI-T2)/CZXN 
) 

149:DIM ITCNRD:ITC 
A)=0 

152: GRAPH : 
GLCURSOR (119, 
-68): SORGN 

I6Q:LINE (C-119, 82)- 
(119, BD'LINE € 
8, -189)-(8, 8) 

128:REM TRACE DU S 


OL 
188:COLOR 1:7T=T2: 
GOSUB "f";:MA=P 


T: YO=MBXCO: 
GLCURSOR (YO, 8 
) 

199:FOR I1=1TO N 

29Q:T=T+R:GOSUB "f 
MsMI=PT 

219:T=T+R:GOSUB ‘"f 
":M2=PT 

228: S=Mg+4xn1+m2:s 
O=S0+S: IN=SOXR 
73 

238: X=INXCO: Y=M2%XC 
O:LINE -CY; -X) 


249: 
250: 
268: 
270: 
288: 


298: 


380: 


312: 


328: 


339: 
348: 


350: 


360: 


378: 
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IF I<CILET ITC 
J)D=IN:J=J+1:C1 
=JxA 
ma=n2:NEXT I 
COLOR B'LINE € 
a; —X)-(D, 2) 
REM TRACE DES 
ROUES 

GLCURSOR (9, 9) 
: COLOR 2 

FOR K=@TO NR:T 
=TB:H=2XR: G=HX 
KXQ:GOSUB "f" 
U=ITCK)DXCO: 
LINE (9, -U)-(1 
14, -U) 
U=(PTXCOS G)XC 
(a) 

U=CITCK)D-PTX 
SIN G)XC0O: 
GLCURSOR CU, -U 
) 

FOR O=1ITO N:T= 
T+H: GOSUB "f" 
U=PTXxCOS (G-0X 
H) XxCO 
U=CITCKD-PTX 
SIN CG-0XH))XC 
0 

LINE — CU; VU): 
NEXT 0 

NEXT K:TEXT 
END 


S 


pirale d'Archimède : 


Déplacement du cercle 


PARTITION: 58 
NB ROUES: 3 
MAX PT: 1 
BORNES: 9 ; 
1592654 


3.14 


2Q:"#f'"PT=SIN T: 
RETURN 


Courbe spéciale 


PARTITION: 58 
NB ROUES: 5 
max PT: 18 
BORNES: 8  ;, 
3185327 


6.28 


28: "f"PT=IDXCSIN 
CT/2)n2): 
RETURN 


: KL | 
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PROGRAMMATION SYNTHÉTIQUE DE LA HP-41 C 


es programmeurs de chez HP ont mis grand soin 


à faire de la HP-41 C une machine 
sophistiquée, sérieuse, évolutive... 


Tellement même qu'au-delà de sa face officielle, la 


programmation synthétique ouvre la porte aux 
manipulations les plus subtiles. 


Il est bien loin le temps des pion- 

niers de la programmation synthé- 
tique pour qui le Cric ou son cousin 
saxon Byte jumper étaient les seules clés 
d’accès au jardin synthétique. Le 
module d’extension X-FUNCTIONS 
simplifie considérablement le travail en 
programmation synthétique. 


Grâce aux instructions ATOX, 
XTOA, AROT et la magnifique PASN, 
on va réaliser un programme dont la 
fonction est d’assigner « n’importe 
quoi » à n'importe quelle touche du 
clavier. 


C’est avec ce programme, KASN, 
qu'on réalisera un clavier synthétique, 
c’est-à-dire où la plupart des fonctions 
sont assignées. Finies, alors, les longues 
manipulations nécessaires à la création 
d'instructions synthétiques : elles sont 
maintenant assignées et disponibles en 
permanence. 


L’heure du repos n’a cependant pas 
encore sonné : il faut introduire en 
mémoire le programme KASN avec ses 
quatre instructions synthétiques, respec- 
tivement : 

1] STO M 
27 RCL M 
45 x<> C 
49 Xe» C 


On les programmera facilement en 
employant la méthode du Cric, décrite 
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dans LIST n° 1. Observons au passage 
que l’imprimante écrit : [, X,], 1, — 


et T les registres synthétiques M, N, O, 
P,Q et F: 


La logique des 


opérations 


Lorsque KASN est programmé (et 
sauvegardé), il est impératif de s’assu- 
rer qu’il existe un nombre pair d’as- 
signations déjà effectuées. Comme 
notre propos est de créer un clavier 
synthétique complet, on effacera toute 
assignation préalable avec CLKEYS 
(zéro, comme chacun sait, étant un 
nombre pair bien agréable). 


Ci-fait, penchons-nous quelque peu 
sur la logique des opérations. Pour 
obtenir un clavier synthétique, avec 
KASN, il faut indiquer le numéro de la 
touche à assigner et les deux codes de 
chaque fonction. 


Les codes des touches sont bien 
connus (voir la fonction PASN) mais les 
codes des fonctions de la HP-41 C, 
synthétiques ou nor, le sont sans doute 
moins. 


C’est dans LIST n° 4 que l’on trouve 
la table des codes des fonctions de la 
HP-41 C. Avec cette table, en assem- 
blant à volonté les codes correspon- 


KASN 

Programme pour HP-41 C 
Auteur F. VADEZ 

Copyright LIST et l’auteur. 


EF RE T 

29 KES BI 

38 &EB "EASH" 
314181 A6 

32 FEOMET 
STGF 


STÈOr 38 
5 "PAS" 


La 


CLA 


Cod fat nl 
LT fu 


dr 


Ce] ra nd 


èd, AT 


35 =! St RTH 
26 AROT <2 END 
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dants, il est possible de composer n’im- 
porte quelle fonction : 

144 117 pour RCL M, 

145 117 pour STO M, 

etc. 


A noter que les arguments M, N, etc. 
peuvent être choisis dans les codes 245, 
246, …, 255. Ce choix ayant pour effet 
d’ajouter l’indirection : 

144 245 pour RCL IND M, 
145 117 pour STO IND M, 
etc. 


Enfin, pour ce qui est du clavier 
synthétique, le tableau 1 précise nette- 
ment les codes des touches et des fonc- 
tions à créer. 


XEQ « KASN » et le programme 
demande : T?, soit les numéros des deux 
premières touches à assigner. En effet, 
on effectue deux par deux les assigna- 
tions. Introduire alors, chacun séparé 


Tableau 1 
Codes du clavier synthétique 


Touches 


Les fonctions d’un seul octet, comme 
& et DEL, ont toujours pour premier 
code « bidon » : LBL 03 de code 4. La 
plupart des commandes de la HP-41 C 
ont un code d’un octet. Le tableau 2 les 
précise. 


Simple 
comme bonjour 


La fonction # que nous venons de 
créer est utile en programmation synthé- 
tique pour programmer des chaînes de 
caractères. Par exemple, faire XEQ'! 
BONJOUR. Après avoir lu NON 
EXISTENT, en mode programme, exé- 
cuter la fonction #. Le chiffre 3 est pro- 
grammé (sans intérêt) suivi de la 
chaîne : 

BONJOUR 


Fonctions 


Codes 


E + 1/x 


Vx 
LOG 

LN 

X <>y 
R! 

SIN 


par R/S, les numéros des deux touches. 
Par exemple : 
11 R/S 12 R/S 


La question suivante de KASN est 
C1?, qui demande les deux codes de la 
première fonction à assigner. Par exem- 
ple, répondre : 241 R/S 67 R/S. 

De même, au message : C2?, ce sont 
les deux codes de la seconde fonction 
qu’il convient de préciser : 

144 R/S 124 R/S 


Pour réaliser les assignations suivan- 
tes, il faut indiquer les codes de touches 
et de fonctions dans l’ordre où ils se 
trouvent dans le tableau 1. 


Les deux assignations faites, KASN 
(insatiable) en redemande. Poursuivre à 
volonté et stopper l’exécution du pro- 
gramme lorsque toutes les assignations 
sont faites. 
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TT 


CRIC 
STO b 
RCL c 
STO d 
STO e 
STO + 
STO M 
STO N 
STO O 
STO P 
H 

x< >d 
x< >N 
x< >P 


RCL b 
TONE 7 
RCL d 
RCL e 
REL F 
RCL M 
RCL N 
RCL O 
RCL P 
STO Q 
X < >cC 
x< >M 
x< >O 
DEL 


241 67 et 


145 
144 
145 
145 
145 


124 et 
125 et 
126 et 
127 et 
122 et 
117 et 
118 et 
119 et 
120 et 


19 et 206 
126 et 206 
118 et 206 


120 et 


144 124 
159 37 

144 126 
144 127 
144 122 
144 117 
144 118 
144 119 
144 120 
145 121 
125 
117 
119 
4 2 


Fonction 


© 00 -J D Ur BB © D == © 


CAT 
@C 
DEL 


COPY 


CLP 
R/S 
SIZE 
BST 
SST 


Il est recommandé de ne pas employer 
2--et@ C sous peine de « plantage ». 


L'’explication est simple. Pour cher- 
cher le LBL'BONJOUR, la HP a 
stocké temporairement son nom dans le 
registre Q. Il y demeure. La fonction # 
programme le chiffre 3 suivi d’une 
chaîne composée des caractères conte- 
nus dans le registre Q. 


La fonction mu 


Soit en X une valeur numérique quel- 
conque, par exemple l’état des flags de 
la HP-41 C donné par RCL d, faire STO 
Q, en charge le contenu dans le registre Q. 

En mode PRGM, exécuter la fonction 
m décharge ce contenu, qui est pro- 
grammé inversé (si Q contenait les codes 
1234, ce sont les codes 4321 qui sont pro- 
grammés). Il faut réaliser une seconde 
inversion pour programmer la bonne 
constante représentant l’état initial de X. 

Se placer sur la chaîne de caractères, 
en mode de calcul faire SST (la constante 
monte en alpha, registre M). Puis, RCL 
M pour ranger en X sa représentation 
numérique, de nouveau STO Q puis, 
enfin, la fonction x (en mode PRGM). 

Cette chaîne de caractères programmée 


contient toutes les informations sur les 
flags de la HP-41 C au moment de l’ex- 
traction par RCL d. 

Dès lors programmer : 
T La chaîne spéciale 
RCL M 
STO d 


remettra tous les indicateurs de d, y com- 

pris les flags du système, en l’état initial. 

C’est, en quelque sorte, résumée en trois 

pas, toute une série de CF - - et SF - -. 
Cette méthode de stockage de constan- 

tes numériques sous forme alphabétique 

est précieuse : 

THEN HER 

RCL M 

est bien plus rapide que son trivial 


équivalent : 
123456789 JCK 


Tableau 2 
Codes des commandes d’un octet 


Avec la fonction STO Q (que nous 
avons assigné au clavier, touche ASN) 
on pourra ranger en Q n’importe quel 
nombre tapé au clavier ou récupéré 
depuis un registre synthétique quelcon- 
que, puis le programmer en quelque 
sorte comme une constante. 


Attention cependant, une inversion a 
lieu entre le nombre stocké en Q et ce 
même nombre programmé par la fonc- 
tion #. L’encadré ci-contre décrit la pro- 
cédure à suivre pour programmer, par 
exemple, le stockage dans un registre 
synthétique d’une constante numérique. 


Frédéric VADEZ 
Jean-Christophe KRUST 
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LA BOÎTE 
À MALICES... 


RENEZ un programme et otez-en très 

soigneusement toutes les astuces, des plus 
élémentaires aux plus subtiles, Vous êtes certain 
de n’en avoir laissé passer aucune ? Bien. Que 
reste-t-il ? Rien, ou peut-être une bogue ou deux 
(tout le monde peut se tromper). En fait, tout 
programme n'est qu'une suite d'astuces, Dans les 
pages qui suivent, vous en trouverez un grand 
nombre, Certaines sont de portée très générale. 
D'autres ne valent que pour un matériel 
particulier. Mais dans tous les cas, vous aurez 
intérêt à être curieux, à fouiner dans la boîte à 
malices, Même s'il ne s’agit pas de votre machine, 
yous trouverez souvent des idées à reprendre. Par 
ailleurs, vous avez sans doute vos propres 
recettes, vos façons de faire... Si ce ne sont pas 
des secrets que vous cherchez à conserver 
Jjalousement, faites-en part au journal, Celles qui 
nous paraitront les plus intéressantes enrichiront 
à leur tour la boïte à malices. Tous les lecteurs 
pourront ainsi en profiter. 


LIST 
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UTILITAIRE TRS-80 


QUAND 
UN PROGRAMME 
RÉTRÉCIT.. 


L'’interpréteur Basic ignore pres- 

que toujours les espaces du texte 
d’un programme, exception faite de 
ceux qui figurent à l’intérieur des chaî- 
nes de caractères, c’est-à-dire entre 
guillemets (ou entre guillemets et fin 
de ligne). 

Pourquoi, dès lors, encombrer la 
mémoire de la machine avec ces blancs 
inutiles ? On a tout intérêt à écrire des 
programmes aussi compacts que pos- 
sible, sans espaces ; cela réduit non 
seulement la consommation de 
mémoire dans l’unité centrale, mais 
aussi sur le disque ou sur la cassette. 


Malheureusement, ce qui est bon 
pour la machine ne l’est pas nécessai- 
rement pour l’utilisateur. Nous som- 
mes accoutumés à lire des mots sépa- 
rés par des espaces sans lesquels un 
texte n’est qu’un charabia. 


L’utilitaire DEPAK/BAS implante 
en mémoire auto-protégée une routine 
en binaire de 182 octets permettant, au 
choix, de « compacter », c’est-à-dire 
de supprimer les espaces inutiles, ou 
bien de « décompacter » en insérant 
des espaces dans un programme Basic 
quelconque. Pour « compacter », 
l'utilisateur entre au clavier PRINT 
USR (0) et tous les espaces (codes 
20H/32) sont supprimés, sauf ceux qui 
sont inclus dans les chaînes de carac- 
tères, les commentaires (ou REM) et 
les lignes DATA. 


Pour « décompacter », on entre 
PRINT USR (1) et des espaces seront, 
au besoin, insérés de part et d’autre de 
chaque deux-points et de chaque mot- 
clé du Basic, à l’exclusion des REM, 
DATA, des opérateurs arithmétiques 
et de la plupart des instructions dont 
l’argument se trouve entre parenthè- 
ses (MID$, INT, PEEK, etc.). 

Les programmes ainsi recondition- 
nés peuvent être, à volonté, exécutés, 
listés, sauvés sur disque ou cassette, ou 
modifiés. On peut, par exemple, com- 
pacter avant la sauvegarde sur disque 
ou cassette, puis aussitôt décompacter 
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JE SUIS ENCOMBRÉ 
BLANCS INUTILES... 


- ON VA VO0s 
“COMPACTER 


27 DEPAK/BAS - (C) 1984, LIST et Roger EROUSMICHE ! 
37 COMPACTAGE ET DECOMPACTAGE D'UN PROGRAMME PASIC 


#7 Configuration : sodele { où 3 , 16K a 48K : 
Fi disquette ou cassette. f 


18 CLS : CLEAR 50@ : N=182 : U$= STRING$ (N, 32 

20 V= VARPTR (US) : AI=PEEK(V+#1) : A2=PEEK(V42) 

30 AD=A1+2564A2 : M-AD-2 

48 PRINT *# MEMORY SIZE ="AD : PRINT 

5 PRINT "11 faut faire PRINT USR i@) pour COMPACTER 
un programme basic ,* : PRINT 

68 PRINT * ou bien PRINT USR (5 pour ie DECOMPAC 

TER." : PRINT 

70 IF AD>32767 THEN AD=AD-65534 

8@ FOR 1=Q TO N-1 : READ À : CG-C6+4 

90 POKE AD#J,A : NEXT 

100 IF CSK}24754 PRINT *ERREUR DATA...” : GTOP 

110 IF PEEK(16396)=201 THEN POKE 16526, A1 : POKE 14527, 
A2 *ELSE DEF USR =AD 

SE protection memoire 

130 B2=INT(M/256) : PI=M-296#p2 

140 POKE J6561,B1 : PORE 16567,P2 : CLEAR 5E 


168 DATA 285, 127, 18, 217, 293, 42, 249, k4, 42, 164 
178 DATA 64, 229, 221, 225, 126, 35, 162, 40, 92, Je 
189 DATA 35, 35, 175, 182, 32, 97, 35, 221, 117, 

190 DATA 221, 116, 1, 24, 232, 175, 217, 184, 217, 40 
280 DATA 114, 126, 254, 58, 49, 16, 254, 210, 40, 12 
216 DATA 254, 211, 40, &, 254, 128, 56, 219, 24, 205 
228 DATA 48, 215, 43, 126, 224, 190: 3, 40, 4, 254 

23 DATA 32, 32, 12, 35, 25, 126, 254, 32, 40, 197 

240 DATA 254, 147, 40, 193, 43, 253, 229, 253, 35, 253 
230 DATA 229, 209, 219, 235, 183, 297, 82, 43, 229, 193 
268 DATA 209, 225, 237, 184, 35, 54, 32, 24, 168, 252 
278 DATA 34, 251, 64, 253, 34, 249, 64, 253, 34, 253 
280 DATA 64, 217, 201, 126, 254, 147, 40, 4, 256, 136 
290 DATA 32, 6, 35, 175, 182, 32, 251, 49, 254, 34 

300 DATA 32, 149, 35, 82, 34, 190, 40, 143, 175, 182 
310 DATA 32, 246, 43, 24, 136, 126, 254, 32, 32, 203 
320 DATA 229, 229, 229, 253, 229, 229, 253, 43, 299, 184 
330 DATA 237, 82, 229, 193, 225, 35, 237, 176, 225, 43 
340 DATA 24, 181 


pour obtenir une liste présentable. 
Mais attention : la suppression des 
espaces peut entraîner dans certains 
cas (très rares heureusement) des 
erreurs de syntaxe caractérisées. Ainsi 
le compactage de 

IF F OR K THEN 1000 
retournera IFFORKTHENI1000, soit 
la création d’un FOR incongru à cet 
endroit (comme quoi l’interpréteur 
Basic tient parfois compte des espa- 
ces.….). 


Après décompactage, les ELSE 
seront précédés d’un signe deux- 
points qui n’affecte que l’esthétique. 
Plus important : il ne faut jamais acti- 
ver la routine binaire par une instruc- 
tion J = USR (0) ou J = USR (1) qui 
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EE 


peut provoquer l’altération du pro- 
gramme si la variable J est déjà défi- 
nie en mémoire. Il est d’ailleurs beau- 
coup plus simple de faire PRINT USR 
(0) ou (1) ou (version abrégée) ?USR 
(0) ou (1) qui donne, en prime, la con- 
firmation d’exécution. 


Selon une technique courante, le 
MEMORY SIZE, quel qu’il soit, est 


déplacé vers le bas, et la routine est 
implantée dans l’espace mémoire 
rendu disponible. Elle reste active 
jusqu’à la réinitialisation du Basic, ou 
la redéfinition du DEF USR dans un 
autre programme... 


Roger BROUSMICHE 


PCI1251 


CHANGEMENT DE MODES 


On trouvera dans le tableau ci-dessous des indications sur la façon dont 
sont codés les différents modes à l’intérieur du PC-1251. Pour l’octet 
63550, seul PEEK est opérant, mais on peut poker en 63548 et 63549. 


PC-1251 : indicateurs et modes 


| Bitn® | 7 6 5 4 3 2 1 0 
Octet 63548 DE | G P |DEF 
Octet 63549 | E | RAD [SHIFT| BUSY 
Octet 63550 RSV | RUN | PRO 
Valeur 128 | 64 | 32 | 16 | 8 4 2 1 


10 Q = 63548 


respondante n'ait été pressée, 


CRE RRERRE _— ————— _—_ 


Un exemple d'utilisation : DEF 


20 POKE Q,1 : PRINT ‘‘A, G, =”? 
30 ‘‘A’”’ POKE Q,1 : PRINT ‘‘.. SALUT...” 
40 ‘‘G’’ POKE Q,1 : PRINT ‘‘...A...” 
50 ‘=’? POKE QI : PRINT ‘‘... TOUS. ” 
La ligne 20 du programme met l’ordinateur en mede DEF sans que la touche cor- 


D ] 


Eric CHAUVEL 
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_ ORIC:1 ET ATMOS 


BONNES ADRESSES (2° partie) 


Dans LIST 5, nous avions 
passé en revue la liste des princi- 
pales variables-système stockées en 
page zéro de la mémoire vive. Voici 
maintenant ce qui concerne la page 2. 


Les adresses énumérées sont expri- 
mées en hexadécimal et elles sont le 
plus souvent identiques pour Oric-1 et 
pour Atmos. Quand elles diffèrent 
d’une machine à l’autre, il en est fait 
mention. 


208 : contient l’adresse de la touche 
pressée. Les deux premiers bits corres- 
pondent au numéro de la ligne de la 
touche, les trois bits suivants au 
numéro de la colonne. A chaque tou- 
che est donc associée une valeur dif- 
férente. Cette adresse ne détecte pas la 
pression des touches SHIFT et CTRL 
(voir ci-après). 

209 : contient l’adresse de la touche 
spéciale (SHIFT ou CTRL) pressée, 
164 ou 167 pour le SHIFT droit ou 
gauche, 162 pour CTRL. La valeur 56 
indique qu'aucune touche n’a été 
pressée. 


20C : 255 pour le mode majuscules 
et 128 pour le mode minuscules. 


20E : utilisé comme compteur pour 
la répétition automatique des touches. 


20A et 210 : contiennent respecti 'e- 
ment le bit de colonne et le numéro de 
ligne de la dernière touche pressée. Ces 
octets sont très utiles quand on veut 
que l’action se maintienne même après 
pression de la touche en question. 
L’octet 210 a toujours son bit 7 à 1, 
contrairement à l’adresse 211 où l’on 
trouve le numéro de ligne en clair (de 
0 à 7 donc). 


219 : position horizontale du cur- 
seur HIRES. 


21A : position verticale du curseur 
HIRES. 


21F : 1=HIRES, 0=TEXT ; l’At- 


mos utilise cet octet pour savoir s’il: 


doit ou non afficher les messages dans 
la ligne de status, de façon à ne pas 
altérer les graphismes HIRES, ce qui 
se produit sur l’Oric-1. 


220 : prend la valeur 1 dans le cas 
d’un Oric 16 Ko (sinon 48 Ko). 


228, 229 et 22A : contiennent, sur 
Oric-1, le saut à la routine d’interrup- 
tions (IRQ). On y trouve un JMP 
EC03. 
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22B, 22C et 22D : contiennent, sur 
Oric-1, le saut à la routine d’interrup- 
tions non masquables (NMI) que l’on 
appelle à tort « RESET ». Sur Oric-1, 
on y trouve JMP 430. 


230 : sur Oric-1, retour d’interrup- 
tions IRQ, contient normalement un 
RTI que l’on peut remplacer. pour ses 
besoins par un JMP pour détourner la 
fin des interruptions. 


245, 246 et 247 : Atmos, saut à la 
routine d’interruptions IRQ (JMP 
EE22). 

247, 248 et 249 : Atmos toujours, 
saut à la routine d’interruptions non 
masquables (IMP F882). 


24A : identique à 230, mais sur 
Atmos. 


24D : sur Atmos, vitesse de trans- 
fert cassette ; 0 = rapide, sinon lente. 


25C et 25D : sur Atmos, contient 
après un Verify le nombre d’erreurs 
rencontrées. 


261 : vecteur de saut aux routines 
« contrôles » (maj./min., double hau- 
teur, etc.). 

268 : ligne du curseur. Une modifi- 
cation de cet octet déplace effective- 
ment le curseur, contrairement à l’oc- 
tet 30 qui indique seulement sa 
position. 

269 : numéro de la colonne du 
curseur. 


26A : drapeaux pour différents con- 
trôles. On trouve ainsi : 
e bit O0, curseur on/off 
e bit 1, affichage on/off 
e bit 2, inutilisé 
e bit 3, déclic du clavier 
e bit 4, dernier caractère frappé 
ESCAPE 
e bit 5, 38 ou 40 caractères par ligne 
e bit 6, double hauteur 


Dans un programme, pour agir sur 
les contrôles, il est beaucoup plus pra- 
tique de modifier directement cet octet 
26A que d’utiliser des PRINT 
CHR$(, car on n’a pas à se soucier 
de l’état précédent des contrôles. 


26B : couleur du fond modulo 16. 


26C : couleur de l’encre. 


271 : drapeau pour le clignotement 
du curseur (1 = normal et 0 — inverse). 


272-273 : « timer » clavier (décré- 
menté à partir de 4). 


274-275 : « timer » clignotement 
curseur (décrémenté à partir de 25). 


276-277 : « timer » pour le WAIT, 
décrémenté tous les centièmes de 
seconde. 


26D-26E : sur Oric-1 uniquement, 
adresse de la première ligne de l’écran, ” 
normalement BB80. 


26F : sur Oric-1 uniquement, nom- 
bre de lignes à l’écran. 


27F : sur Atmos, nom du pro- 
gramme sauvé sur cassette, terminé 
par un zéro, en ASCII. 


293 : sur Atmos, nom du pro- 
gramme chargé depuis la cassette, ter- 
miné par un zéro, en ASCII. 


2A9-2AA et 2AB-2AC : toujours 
sur Atmos, respectivement adresse du 
début et de la fin du programme 
chargé depuis la cassette. 


27E (Atmos) : O=fichier chargé 
non AUTO), sinon fichier en AUTO. 


27F (Atmos) : type du fichier chargé 
depuis la cassette ; 0=Basic, 
128 = bloc-mémoire, 64 = tableaux de 
variables. 


2C0 : si le bit O0 est à 1, mode 
HIRES, sinon mode TEXT. Si le bit 
1 est à 1, mode RELEASE, sinon 
mode GRAB. C’est cet octet qui déter- 
mine l’apparition du message « DIS- 
PLAY TYPE MISMATCH 
ERROR ? ». Il permet d’utiliser les 
commandes du mode TEXT quand on 
est en mode HIRES et vice-versa. 


2DF : contient le code ASCII 
modulo 128 de la dernière touche 
pressée. 


2E0 : contient 1 sauf si une condi- 
tion de dépassement a eu lieu avec une 
commande graphique. 


2E1 à 2E8 : registres de passage des 
paramètres pour les routines sonores 
et graphiques. Chaque paramètre 
occupe deux octets, en tant qu’entier, 
par exemple les octets 2E1 et 2E2 pour 
le premier, 2E3 et 2E4 pour le second, 
etc. Un DOKE, et non pas un simple 
POKE, est nécessaire pour introduire 
les paramètres des différentes routines. 
En langage-machine, ne pas oublier, 
même pour les paramètres inférieurs 
à 255, de traiter le deuxième octet, 
pour obtenir des valeurs correctes. A 
noter qu’après un MUSIC, 2E3 et 2E4 
contiennent la période du signal émis. 


Voilà pour aujourd’hui. Mainte- 
nant, l’Oric doit avoir moins de secrets 
pour vous, mais il en reste encore 
quelques-uns. Alors à bientôt. 


Denis SEBBAG 
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AMSTRAD ET CE 


HISTOGRAMME 
EN TROIS 
DIMENSIONS 


J'ÉTAIS EN TRAIN DE TRACER 
TRANQUILLEMENT HON HS - 
GRAMME 3D, Ne ag SOUVAIN , 
À LA SUITE D UNE  FAUSSE 
MANŒUVRE , MON ORDINATEUR 
A DiSPARU DANS LA 
GUATRIÈME DIiMENSiON ! 


Histogramme 3D 
Programme pour Amstrad 
Auteur Jacques Boisgontier 
Copyright LIST et l’auteur 


19 emmeememmmmemman histogramme 3D 

20 MODE 2 

30 xd=59 :yd=58 ? origine 

48 19=38 ‘ larSeur 

56 Pr=10 * Profondeur 

68 itv=30 ’ intervalle batons 
78 ? 

88 nh=5 ‘ nombre de kbatons 
30 


198 h(12=40 

119 hC2)=39 

128 hC3)=59 

1380 hC4)=10 

148 hCS)=269 

130 ?’---- 

160 FOR hH=nh TO 1 STEP-1 
178 xbexd+Ch-12%itw 

188 sbæyd+Ch-13%itv 

198 FOR dx=i TO Pr 

288 PLOT xb+dx,yb+dx+hh  ,1 


’ origine baton 


1 baton 
? Point gauche 


DAI 


FACILITONS NOS ÉCHANGES 
DE CASSETTES 


Test de réglage 

de lecture de cassette 
Programme pour Dai 
Auteur Alain Mariatte 


Comme tous les amateurs de 
micro-informatique, les daïstes 
aiment échanger leurs programmes. 
Cela permet l’enrichissement de leur 


1 REM 

18 REM He 6 46 DEEE DE DE DE DD DD DE DE DD DE ÉD DD DE D DEEE DD DH DE DE D 
20 REM #*#% TEST DE REGLAGE DE LECIURE DE CASSEITE +** 
F0 REM He DE DE DD ND DE DE DEEE DE DE DEEE DEEE DE D DE ee DE EE 
4a REM 

50 REM 

68 REM 


108 DIM #(@.8) 
170 FOR I=i 10 24 


1:90 IE=STRS (1): LELENCEIH):IN#=LEFTEUIE,L-S):1F 1010 THEN N#=" +4Né 

148 A£=" CHCHRE (157) 4 OUANEET UA"CASSETTE ADJUSTMENT TEST "+UHR# (156) 
150 SAVEA À ÀE 

168 NEXT 


Voici un programme en Basic 

permettant de tracer des histo- 
grammes en trois dimensions. Il est 
avant tout destiné aux nouveaux uti- 
lisateurs de l’Amstrad, mais il 
s’adaptera aisément sur tout matériel 
disposant du graphisme haute 
résolution. 


Si votre machine est dotée de l’ins- 
truction BOXF (boîte pleine), 
comme le MOS ou les ordinateurs au 
standard MSX, le programme 
devient plus simple. 


219 IF dx>1 THEN PLOT xb+dx+19,sb+dx, 1:DRAW xb+dx+19,sb4+dx+hCh),1:GOTO 250 


229 FOR di=i TO 19 


gle 


rectan 
238 PLOT xb+dx+d1,yb+dx, 1:ORAH Ar RDC, À 


248  NEXT di 


230 PLOT xb+dx+1,,b+dx+héh2:DRAN xb+dx+19,sb+ax+hCh 2,2 


268 NEXT dx 


27@ PLOT xb+dx-1,1b+dx+hCh3,1:DRAW xb+dx-1+19,sb+dx+hCh3,1 


280 TAG:PLOT xb+30,»b:PRINT HCh); 
298 NEXT h 


* effacement ligne 


* derniere 1i9ne 


Dans l’exemple retenu, les cinq grandeurs représentées par l’histogramme 


sont déterminées aux lignes 100 à 140. 
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Jacques BOISGONTIER 


a 


bibliothèque de logiciels, la découverte 
de nouveaux trucs et astuces. Hélas, 
c’est souvent l’occasion d’homériques 
bagarres avec le potentiomètre de vo- 
lume de leur magnéto-cassettes. 


Pas d'échange 
sans réglage 


D’abord, il faut en changer le 


. réglage habituel pour l’adapter au 


niveau requis par la cassette du corres- 
pondant, et cela dérange les habitudes. 
Tant pis, c’est le prix à payer pour 
avoir le droit de découvrir les « tré- 
sors » certainement contenus dans la- 
dite cassette. Avouons quand même 
qu’il est consternant de procéder à ce 
réglage, par tâtonnements successifs, 


en essayant de charger le premier pro- 


gramme. La loi universelle de Murphy 
nous enseigne que, dans ce cas précis, 
ce premier programme est justement 
le plus long de la cassette, si bien qu’il 
faut attendre de longues minutes avant 
que le fatidique « LOADING 
ERROR » final nous apprenne que le 


- réglage n’était pas encore « tout à fait 
‘bon » ! 


Voilà pourquoi je propose à tous les 
créateurs de programmes sur Dai quel- 
ques malheureuses lignes de Basic. 


Elles sauvent 20 fois sur la cassette un 


tableau de variables avec le titre 
« CASSETTE ADJUSTMENT 
TEST » précédé d’un numéro d’ordre 
(1 à 20). Enregistré au début de la cas- 
sette, ce fichier sera testé par le desti- 
nataire grâce à la commande Basic 
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d’ajuster les réglages du magnéto- 


phone pendant les 20 secondes de véri- 


fication de ce fichier d’essai. La numé- 


rotation renseignera sur l’avancement 


des travaux (un numéro manquant 
montrant que le réglage n’est pas abso- 
lument fiable). La mention « OK » 
derrière les 20 titres, au contraire, 
assurera une honnête probabilité de 
succès pour le reste de la cassette. 


Si tous les échangeurs de program- 
mes voulaient se donner la main... ce 
serait bien. Qu'ils se donnent un 


coup de main en acceptant de généra- 
liser ce petit truc, et cela ne sera déjà 
pas si mal ! 


apparaître à l’écran alignés comme ci- 


bon, de « BAD » dans le cas contraire. 


CASSETTE 


2 CASSETTE ADJUSTMENT 
3 CASSETTE ADJUSTMENT 


CASSETTE ADJUSTMENT TEST 

CASSETTE ADJUSTMENT 

CASSETTE ADJUSTMENT 
14 CASSETTE ADJUSTMENT TES 
11 CASSETTE ADJUSTMENT 
2 CASSETTE ADJUSTMENT 
13: CASSETTE ADJUSTMENT 
14 CASSETTE ADJUSTMENT 
15 CASSETTE ADJUSTMENT 
lé CASSETTE ADJUSTMENT 
17 CASSETTE ADJUSTMENT 
18 CASSETTE ADJUSTMENT 
19 CASSETIE ADJUSTMENT 
20 CASSETTE ADJUSTMENT 


Alain MARIATTE 
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Lors d’un « check », les titres doivent À 


dessous et suivis de « OK » si le fichier est } 


ADJUSTMENT TEST 


1 

4 CASSETTE ADJUSTMENT TEST 
S CASSETTE ADJUSTMENT TEST} 
6 CASSETTE ADJUSTMENT TEST{ 
J 
8 
V1 


HIRISEZ VOS PROGRAMMES ! 


Si vous êtes utilisateur de 


TI-58/59, vous connaissez sans 
doute l’existence de la fonction HIR. 
Il s’agit d’une instruction multiva- 
: lente, qui n’est pas révélée par les noti- 
ces ou modes d’emploi, car elle est 
manifestement réservée aux calculs 
‘internes. En tout cas, c’est une fonc- 


tion occulte, en principe interdite à 
l'utilisateur, maïs que l’ingéniosité de 
quelques pionniers fouineurs a mise 
pratiquement à nu et à la disposition 

de tous. 


CHECK. Dès lors, il sera très facile 


Nous vous en rappelons l'essentiel 
et vous proposons (page suivante) un 
petit programme à titre d’exemple. 

. La fonction HIR, accessible unique- 
- ment en mode LRN, a pour objet de 
ubstituer aux instructions relatives 
aux mémoires (STO, RCL, SUM, Prd) 
d’autres instructions dont l’intérêt 
principal est de ne consommer que des 
pas de programme, mais pas de 
contrepartie de réservation de 
mémoire. Cette propriété permet de 
: soulager la partition mémoire, voire de 
travailler en partition zéro (0 Op 17). 


Six fonctions, 
huit mémoires 


Ainsi, la fonction HIR donne accès 
à 6 fonctions et à 8 « mémoires » que 
nous appellerons registres HIR (en 
: fait, ce sont des registres de gestion de 
: parenthèses détournés de leur fonc- 
: tion). Pour introduire une instruction 
en mode HIR, il faut faire suivre HIR 
d’un nombre de deux chiffres occu- 
‘:pant un seul pas de programme. 
Comme on le voit avec le tableau de 
correspondance ci-contre, le premier 
chiffre désigne la nature de la fonc- 
tion, le deuxième (X) le numéro du 
registre. Par exemple HIR 14 est équi- 


: valent à RCL 4, Les registres adressa- 


- bles vont de 1 à 8, ou plutôt de 8 à 1, 
: car il est impératif de les assigner dans 
l’ordre décroissant. 


Comment écrire un programme en 
mettant à profit l’instruction HIR ? 
Mes mésaventures- personnelles me 


poussent à vous conseiller vivement de 
lécrire d’abord en langage clair et, une 
fois qu’il tourne parfaitement, de le 
transcrire en HIR. En effet, la mise au 
point d’un programme écrit directe- 
ment en HIR se révèle pratiquement 
impossible, à tout le moins déraison- 
nable. N'oubliez pas en effet que si 
vous voulez contrôler la valeur d’une 
variable dans un programme écrit en 
HIR, la touche RCL est inopérante, 
que ce soit en mode calcul ou en mode 
LRN. 


Tableau de correspondance 


Instruction Instruction 
HIR AOS 


HIR 0X 
HIR 1X 
HIR 3X 
HIR 4X 
HIR 5X 
HIR 6X 


STO X 
RCL X 
SUM X 
Prd X 
INV SUM X 
INV Prd X 


Dans la colonne de gauche, X repré- 
sente le numéro du registre interne. 
Dans celle de droite, il représente le 
numéro d'une mémoire de données. 


Pour transcrire votre programme, 
utilisez les instructions en HIR selon 
les clés du tableau de correspondance, 
puis introduisez le programme en 
appliquant les règles suivantes : 


e l'instruction HIR a pour code 82. 
Comme HIR n'existe pas au clavier, 
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il faut entrer le code 82 en un seul pas 
de programme, ce qui ne peut pas se 
faire en introduisant successivement 8 
et 2. Tapez donc STO 82 et annulez 
STO. Il reste 82, donc HIR. En prati- 
que, il convient de presser successive- 
ment sur les touches STO 8 2 BST BST 
2nd DEL SST 


e nous avons vu que HIR doit être 
obligatoirement suivi d’un code de 
deux chiffres (le premier étant éven- 
tuellement un zéro) également en un 
seul pas. Si ce code correspond à une 
touche, il suffit de l’actionner. Ainsi, 
pour introduire HIR 13, tapez HIR 
selon la technique exposée au paragra- 
phe précédent, puis le faire suivre de 
€ (13 est le code de C). Mais pour HIR 
64, c’est plus délicat : vous pouvez, 
après HIR, introduire la série de tou- 
ches correspondant au code 64 (2nd 
Prd 2nd Ind), soit taper STO 64 et 
annuler l'instruction STO, comme 
pour l’introduction de HIR. 


N'oubliez surtout pas d’assigner les 
registres HIR par ordre décroissant, à 
partir de 8. 


Pour illustrer le mécanisme de la 
pile de registres accessibles grâce à 
HIR, nous vous proposons un pro- 
gramme de test de Fermat écrit en 
AOS normal, puis transcrit en HIR. 


Rappelons que le test de Fermat a 
pour objet de déterminer si un nom- 
bre N est composé ou non. Il suffit 
pour cela de calculer le reste R de la 
division de B\' par N, B étant un 
nombre quelconque, non divisible par 
N (on prend généralement B = 2). Si 
R est différent de 1, N est composé ; 
si R est égal à 1, N est présumé pre- 
mier (avec une faible marge d’incerti- 


Test de Fermat 


Programme en AOS normal 


Variables Î — 


Registres 


| En AOS En HIR 


Imhalisafions 
M: W-1 


= 2 
1 


B: B?{modN) 


tude). En fait, le programme effectue 
le calcul de R et en affiche la valeur 
pour tout nombre entier N supérieur 
à 1 et inférieur à 10°. 

Pour faciliter la compréhension de 
la transcription du programme en 
HIR, nous le présentons sous forme de 
diptyque, écrit horizontalement, un 
peu à la manière de la disposition en 
Basic, avec les numéros des pas en tête 
de lignes. Le programme reproduit 
fidèlement les indications de l’organi- 
gramme ci-dessus. Notez que les mul- 
tiplications et les élévations au carré en 
modulo N (signifiant que l’on ne 
retient que le reste de la division du 


Transcription en HIR 


(00-04) Lbl A CP STO 00 

(05-09) — 1 = STO 01 

(10-12) 2 STO 02 

(13-15) 1 STO 03 

(6-17) GTO D 

(18-23) Lb] B 1 INV SUM 01 

(24-29) Lbi C 2 INV Prd 01 

(30-35) RCL 02 SBR E STO 02 

(36-46) Lbl D RCL 01 + 2 = INV Int 
x=t C 

(47-52) RCL 03 SBR E STO 03 

(53-59) RCL 01 —- 2 = x >tB 

(60-62) RCL 04 R/S 

(63-80) Lbl E x RCL 02 — 


(CE + RCL 00) Int x RCL 00 


= INV SBR 


(00-04) Lbl A CP HIR 08 
(05-09) - 1 = HIR 07 
(10-12) 2 HIR 06 

(13-15) ! HIR 05 

(16-17) GTO D 

(18-22) Lbl B 1 HIR 57 
(23-27) Lbl C 2 HIR 67 
(28-33) HIR 16 SBR E HIR 06 
| (34-44) Lbi D HIR 17 + 2 = INV Int 
te 

HIR 15 SBR E HIR 05 
HIR17-2=x2>tB 
HIR 15 R/S 


Lbl E X HIR 16 - 
(CE + HIR 18) Int x HIR 18 
= INV SBR 


(45-50) 
| (51-57) 
(58-60) 
(61-78) 


L'utilisation de HIR et des registres internes de la calculatrice permet ici d’écono- 
miser 4 mémoires de données. 
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00 


N 


résultat par N) sont effec- 
tuées par le même sous- 
programme E. 


Le programme en HIR 
occupe deux pas de moins 
que le programme nor- 
mal (79 pas contre 8l)en 
raison de la compacité 

des instructions HIR 57 

et HIR 67 par rapport à 

leurs homologues normaux 

INV SUM 7 et INV Prd 7. En 

outre, il tourne un peu plus vite : pour 

N = 1 037, le résultat (R = 815) est 

affiché en 30°9”” par le programme 

normal et en 28’5°? par le programme 
HIR. 


Notez surtout que le programme 
HIR n'utilise que quatre variables et 
peut être introduit en partition zéro, 
laissant libres 401 pas sur TI-58. Mais 
il vous est parfaitement loisible de 
panacher les instructions en HIR et en 
AOS normal dans le corps d’un pro- 
gramme, à plus forte raison dans deux 
programmes distincts. 


Pierre Ladislas GEDO 


Si jai bien compris, 
HIR permet d'échapper 
au 910 … ça me 


rappelle, pendant la 
guerre … 
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ALICE 32 ET ALICE 90 


QUELQUES ADRESSES A L'USAGE DES EXPLORATEURS 


La petite Alice de Matra dispose 
désormais d’une bibliothèque 
d’environ une dizaine d’ouvrages des- 
tinés aux amateurs débutants. Mais ces 
ouvrages ont été écrits pour l’Alice 
d’origine, et, si les programmes Basic 
ne posent aucun problème, la moindre 
utilisation d’un PEEK ou d’un POKE 
risque de perturber sérieusement . le 
fonctionnement du système. 
En effet l’Alice initiale disposait 


d’une mémoire vidéo située de 
l’adresse 16384 à l’adresse 16896 (512 


octets, pour 16 lignes de 32 caractères). 


Beaucoup de programmes, même sur 
des livres portant la mention « ALICE 
90 », explorent cette mémoire d’écran, 
qui ne correspond à rien sur les nou- 


veaux appareils. Ceux-ci sont en effet 


équipés d’un circuit vidéo spécifique 
EF 9345 qui possède sa propre 
mémoire interne, et auquel on accède 
depuis le microprocesseur 6803 à l’aide 
d’une série de registres. Ce circuit 
offre d’ailleurs des possibilités non 


exploitées par le Basic, par exemple : 


des caractères accentués, des possibi- 
lités de double largeur ou double hau- 
teur, de clignotement, etc. 


Les adresses 
de la nouvelle Alice 


Sans entrer dans les détails, voici un 
certain nombre de POKESs conduisant 
sur la nouvelle Alice à des résultats 
assez spectaculaires. 


POKE 12316,n permet de définir 
une fenêtre écran dans laquelle le pro- 
gramme sera listé et exécuté, le début 
de la fenêtre se trouvant à la nième 
position à partir de la droite. 


POKE 12305,k définit la marge : 


droite de la fenêtre. 


POKE 12304,xx affiche des carac- 
tères très spéciaux en début de fenêtre. 


POKE 12315,m agit sur la hauteur _ 


de la fenêtre. 


POKE 12928,xx ou POKE 12929, yy 
provoquent des anomalies très intéres- 
santes (je vous laisse les découvrir). 


POKE 12930,xx change l’allure du 
curseur. 
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POKE 12307,p donne lui aussi des 
résultats étranges, selon la valeur de 
p: caractères accentués, agrandis, 
démarrage de l’imprimante, RESET 
inactif, etc. 

Les cases 12317, 12402, 36142 réser- 
vent aussi quelques surprises aux har- 
dis explorateurs. Mais le plus intéres- 
sant reste bien sûr une petite visite 


dans les arcanes du chip vidéo, 
implanté à des adresses allant de 48928 
à 48943. Quelques petites boucles pour 
explorer ces cases ne manqueront pas 
de vous ramener quelques bonnes pri- 
ses : nous attendons vos trouvailles. 


Jacques DECONCHAT 


SPECTRUM 


LE BASIC SINCLAIR 
SERAIT-IL RÉCURSIF ? 


On connaissait déjà les étonnan- 

tes possibilités du Basic Sinclair 
en matière d’évaluation d'expressions 
arithmétiques et d’utilisation des fonc- 
tions logiques, mais d’ici à trouver ce 
Basic récursif.… Et pourtant, une uti- 
lisation judicieuse des diverses parti- 
cularités de ce Basic permet vraiment 
de se poser la question sur son carac- 
tère récursif. 


Prenons le célèbre exemple du cal- 
cul de N!. En mathématiques, la fonc- 
tion factorielle est définie par récur- 
rence : 

n! = n x (n-l)!et 0! = 1 


Ceci permet d’écrire 


I =1xX0!=1Xx 1-1 

21=2x 1 =2 KX 1=2 
3 =3X2! =3 x 2 = 6 

4! = 4 X 3! = 4 X 6 — 24, etc. 


Les langages informatiques récents 
permettent la définition récursive 
d’une fonction, mais ce n’est possible 
en Basic que par la gestion d’une pile, 
qui va « entasser » les appels succes- 
sifs de la fonction et les restituer au fur 
et à mesure pour le calcul. Mais 
essayez donc sur votre Spectrum le 


40 PRINT N 


{ « DANS UN RECENT SONDAGE 

| HONEYLET- BULL , iL APPARAT QUE 

6324 DES FRANÇAIS TROUVENT 

À LE RASiC SINCLAR PLUTÔT 
RÉCURSIF 


curieux petit programme ci-dessous, et 
regardez le résultat. 


Le mystère de cette récursivité ? 


-10 REM definition recursive de factorielle n 
20 PRINT "DONNEZ UN ENTIER :"; 
30 INPUT N 


50 DEF FN F(N)=VAL CC'N#FN F(N-1)" AND Nÿ=1)+("1" AND N=0)) 


60 PRINT : PRINT "FC"SN5") = "3FN FN) 
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des possibilités d’utilisation de la fonc- 
tion AND sur le Spectrum : 

LET A$ = (‘AU REVOIR” AND 
TEST < = 5) + (‘‘BONJOUR” 
AND TEST > 5). Si TEST < = 5 
alors A$ = ‘AU REVOIR’, sinon 
A$ = ‘BONJOUR’ 


Regardons maintenant la ligne sui- 
vante : 

DEF FN f(n) = (n x EN f(n-1) AND 
n > = 1) + (1 AND n = 0) 

Elle peut se lire, en décomposant : 
IF n > = 1 THEN LET FN f{n) = 
n x FN f{n-1) 

IF n = 0 THEN LET FN f{n) = 1 


Maïheureusement, l’écriture précé- 
dente ne fonctionnera pas telle quelle 
car, les deux membres de part et d’au- 
tre du AND étant des expressions 
numériques, le premier (avant le 
AND) sera d’abord évalué, et non la 
condition qui suit le AND. C’est ici 
qu’intervient une deuxième astuce : on 
transforme l’expression qui précède le 
AND en chaîne alphanumérique, pour 
se replacer dans les conditions du pre- 
mier exemple. C’est donc seulement 
après l’évaluation de l’expression que 
l’on calculera la valeur numérique, à 
l’aide de la fonction VAL. 


Pour les passionnés du Spectrum, 
voilà une merveilleuse occasion d’uti- 
liser la fonction VALS$ pour définir 
par un procédé analogue des fonctions 


récursives alphanumériques. Une seule 


difficulté : faire très attention aux 
guillemets. 


Frédéric BLONDIAU 


PB-700 


TOP SECRET 


Contrairement à ce qui est écrit 
dans le manuel du PB-700, il est 
possible d’insérer dans un programme 
les fonctions NEW et NEW ALL (de 
même que LIST et SYSTEM). Ainsi, 
*_ pour empêcher les petits curieux d’ac- 
céder à des « programmes top 
secrets », il suffit d’introduire au 
début de ceux-ci, les lignes : 
1 FOR A=0 TO 15 
2 AS-INKEYS 
THEN 10 
3 NEXT A 
4 NEW ALL 
10 REM-PROGRAMME- 
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IF A$=‘J" 


Prenons un exemple qui illustre l’une 


DES DÉCIMALES A FOISON 


Si vous ordonnez à votre ordina- 

teur de calculer le nombre 987 

- 654321/123456789, il vous répondra 
quelque chose comme : 8,000000073. 


C’est relativement exact, mais cela 
ne fournit qu’une précision très limi- 
tée. Pas moyen de savoir réellement 
quelle est la neuvième décimale de ce 
rationnel : sans doute un 3, maïs ce 
n’est pas sûr. Et encore, ce genre de 
résultat a été obtenu sur un ordinateur 
de poche (Sharp 1500 en l’occur- 
rence) ; un TRS-80 ou un Apple en 
simple précision sont beaucoup moins 
fameux. 


La précision 
multiple 


La solution consiste en un calcul en 
précision multiple. Il arrive que l’on 
ait besoin de ce genre de méthode (par 
exemple à l'épreuve pratique de 
l'Ecole normale supérieure de la rue 
d’Ulm de 1984). Versons donc dans la 
« boîte à malices de LIST un utili- 
taire bien commode donnant autant de 
décimales que l’on veut €’un nombre 
a/b (aux limites près de la mémoire, 
ce qui laisse une bonne marge si l’on 
dispose de quelques Ko). 


Muiltiplions d’abord a ou b par une 


Les « petits curieux » qui lancent de 
tels programmes ne trouveront rien : 


tout a été effacé. Ils disposaient bien . 
d’un petit peu plus d’une seconde pour : 
appuyer sur J, mais ils ne connais- 


saient pas le code. 


Alors, pensez à sauvegarder vos . . 


programmes sur cassette ou sur papier 


toutes les mains. 


puissance convenable de 100 pour 
avoir l’inégalité : 0 < a < 100bet 
définissons deux suites d’entiers (a,) 
d’une part, et (q,) d’autre part par les 
relations de récurrence simples : àÿ = 
a, A — INT (@1/b), An+1 — 100 
(a . bah). 

On constate aisément que l’on a 
toujours 0 & a, < 100 b. Le nombre 
rationnel a/b s'écrit alors (do, 41 Q2 
Gn ---), où les entiers successifs q, sont 
écrits avec exactement deux chiffres 
décimaux (éventuellement nuls) 
chacun. - 


Donnons un exemple : pour calcu- 
ler le développement de 111/61, on 
part de b = 61,a = 111, et on trouve 
les résultats suivants (en décimal) : 


ao = 111 do = Î! 
A — 5000 di = 81 
da) — 5900 d = 96 
a; = 4400 q3 = 72 
a; = 800 da = 13 
as = 700 qs = 11 
aç = 2900 de = 47 
a; = 3300 gs = 54... 


Ainsi 111/61 = 1,81 96 72 13 11 4 
54 09 83 60. (ne pas oublier un zéro 
devant le 9). Dans un cas simple 
comme celui-ci, un programme Basic 
très court convient avec l’instruction 
INT (partie entière), par exemple : 
10 INPUT A,B 


: 20 C = 100 


30 Q = INT (A/B) 


: 40 PRINT Q 


50 À = Cx(A —Qx+B) 


60 PRINT À 
70 GOTO 30 


Mais ceci tient évidemment à ce que 


. les entiers de départ a et b étaient de 


petits nombres, pour lesquels le calcul 
de INT (A/B) pouvait se faire exacte- 


:: ment ; ceci n’aurait pas convenu pour 


notre exemple initial dans lequel a = 
987654321, b = 123456789, encore 
moins pour des nombres d’une tren- 


… taine de chiffres chacun. 


Supposons par exemple qu'aucun 
des entiers a et b n’ait plus de trente 


Ë À chiffres. On fera éventuellement pré- 
avant de laisser le PB-700 traîner entre. : P 


céder ces entiers d’un zéro pour pou- 


voir les découper exactement en tran- 
- ches de deux chiffres. La solution con- 
siste alors à préparer par exemple 


quinze cases mémoires B(1), pour I de 
Pierrick GRESLIN 


: 1 à 15, seize cases mémoires A(T), pour 
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Quotient de deux entiers à une précision donnée 
Programme en Basic Microsoft (TRS-80) 

Auteur André Warusfel 

Copyright LIST et l’auteur 


ia REM ENTREE DES DONNEES 2@ NEXT 

za REM 330 REM 

3Q CLEAR 1@OG:DEFINT A-7 340 REM TOILETTAGE DU TABLEAU C 

4@ PRINT'NOMRRE MAXIMUM DE TRANCHES" 350 REM 

S@ INPUT "DE DEUX CHIFFRES "37 362 FOR I=T TO 1 STEP-1 

6 DIM &(T):DIM B(TI':DIM C(T):N=@ 378 R=INT(C(1)/180) = 
7@ PRINT'ENTREZ LES CHIFFRES DE 4 A PARTIR" 3808 CCI-1)=C(I1-1)+R 

8S PRINT'DE LA GAUCHE PAR TRANCHES DE DEUX:" 398 CCI)=C(I1)-100%R 

PR PRINT:A(G)=Q:P O)=0 48 NEXT 

109 FOR I=i TO T 419 REM 

110 PRINT'A(";5135")= "32:INPUT Al) 42@ REM COMPARAISON DES TABLEAUX À ET C 
1:20 NEXT 43@ REM 

13G PRINT #4@ I=- 


14@ PRINT"'ENTREZ LES CHIFFRES DE 


16@ PRINT 47Q IF ACTIEC(I) THEN 290 

170 FOR I=i TO T 488 PRINT'QC"iINS "DE "5 K 

180 PRINT'R("3515")z= ";:INPUT R(I) 490 REM 

198 NEXT 58a REM CALCUL DU NOUVEAU RESTE PARTIEL 
Z@@R PRINT 518 REM 

z1@ REM S:@ FOR I=T TO @ STEP-1 

LEO REM CALCUL DE Q(N) 538 ACI)=ACI)-C(I) 

Z230 REM 549 IF ACI)>=-Q0 THEN 569 

48 K=INT(I(12@KA(DI+ACI))/RU1))+1 550 ACII=A(I)+1@B:ACI-1)=ACI—-1)-1 

Z99 IF K>=190 THEN K=100 S6@ NEXT 


278 REM ESGAIS SUCCESSIFS DE 


MON ORDINATEUR EST FORMEL . 
POUR LUI 9876543241 Divisé 

FAR 1223456789 , ÇA FAT 
EXACTEMENT. £ ET DES 
POUSSIÈRES ! 


I de O0 à 15, seize cases mémoire C(I), 
pour I de 0 à 15, puis de mettre : 

. les chiffres de b, par paquets de deux 
consécutifs, dans les mémoires B(1), 
B(2), BG), etc. 

e les chiffres de a, par paquets de deux 
consécutifs, dans les mémoires A(1), 
A(2), AG), etc. 

< des zéros dans les cases A(0) et les 
cases inoccupées (s’il en existe) prove- 
nant du fait que a ou b n’ont pas 
nécessairement une trentaine de chif- 
fres, mais peut-être vingt-huit, vingt- 
quatre, etc. 

On peut considérer que ces mémoi- 
‘res contiennent alors chacune l’équi- 
valent d’un «chiffre» dans un 
système de numération dont la base 
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BR A PARTIR" 4S@ I=1+1:1F I=T+1 THEN 610 
158 PRINT"DE LA GAUCHE PAR TRANCHES DE DEUX:”" 469 IF ACI)=C(I) THEN 450 


357@ FOR I=1 TOT 
VALEURS DE K Se ACI-1)=A(I) 
590 NEXT 


608 AIT)-BINE=N+1: GOTO Z4Q 
61@ PRINT'QC"3N3") "5K 
628 PRINT'PIVISION TERMINÉE EXACTEMENT":END 


serait cent et non dix. L’algorithme est 
exactement celui que l’on emploie 
habituellement dans une division « à 
la main » comme on l’apprend à 
l’école primaire, avec ses essais succes- 
sifs, ses restes partiels, etc. Très connu 
de chacun d’entre nous, il est assez 
malaisé à expliciter complètement : le 
mettre sur machine est un bon 


exercice. | : 
Nous supposerons qu’à un instant 


donné les mémoires A{I), pour I allant 
de 0 à 15, contiennent le nombre a, ; 
b reste toujours, quant à lui, dans les 
B(T) pour I de 1 à 15. Soient x, y et 
z les contenus respectifs de A(0), A(1) 
et B(1) ; pour première valeur plausi- 
ble de q,, on prendra d’abord k, plus 
petit des deux nombres 99 et partie 
entière de (100x + y})/z. Les mémoi- 
res C(1) à C(15) vont alors recevoir les 
contenus des mémoires B(1) à B(15) 
multipliés chacun par k. Une opéra- 
tion de « nettoyage » par dégraissages 
successifs conduira, en partant de 
C(15), à débarrasser toute mémoire 
C(1) de multiples de 100 en les repor- 
tant — comme avec des retenues clas- 
siques en calcul décimal — dans les 
cases de numéro inférieur. C’est ainsi 
qu’il est très possible que la case C(0) 
en vienne à contenir quelque chose 
provenant de C(1). 


Reste alors à comparer a,, emma- 
gasiné dans les A(I) et le produit bk, 
gardé dans les C(1). Si bk est stricte- 
ment supérieur à a, c’est que k est 
trop grand et il faut essayer k— 1 et 
ainsi de suite jusqu’à trouver q,, plus 


grand entier h tel que bh < a,. Dans 
les cases A(1) figure maintenant le reste 
partiel a,—bq,. Comme dans une 
division habituelle, on « descend une 
nouvelle tranche » en faisant transla- 
ter le contenu des AI) vers les 
A(I-— 1), ce qui équivaut à multiplier 
par 100 et donne bien la relation de 
récurrence a,,, = 100(a,—bq,). 


Voici un programme possible. Il 
demande le nombre maximum de tran- 
ches de deux chiffres — par exemple 
quinze — nécessaires pour représenter 
a et b, puis ces deux nombres que l’on 
doit entrer au clavier pour emplir dans 
l’ordre croissant les mémoires A(1), 
A(2)... puis B(1), B(2) et ainsi de suite. 
Il imprime successivement do, 4j, , 
.… Sans fin : c’est à l’opérateur de déci- 
der l’arrêt du processus. 


Le Basic Microsoft utilisé (ici sur 
TRS-80) est très classique. On a cher- 
ché à structurer au maximum le pro- 
gramme, ce qui le rend sans doute un 
peu long, maïs relativement clair à 
relire. On pourra essayer l’exemple 
donné au début de ce petit article (a 
= 987654321, b = 123456789), pour 
en:calculer une vingtaine de décima- 
les ; on trouve : 8, 00 00 00 07 29 00 
00 06 63 39 00 06 03 68... 


On y voit surtout beaucoup de 
zéros ! Ce qui ne veut pas dire que ces 
décimales soient si simples que cela à 
déterminer sans machine. 


André WARUSFEL 
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| Il vous manque d'anciens numéros | 
de LIST ? Utilisez le bon ci-contre pour 
_ les commander. Si vous en choisissez 3, 


| N° 1 .« Le Basic du MO5 e Trois logiciels d'aide à la programmation pour C.64, TI 99/4A 

| et TO7 e Le point sur le ZX Spectrum e La programmation synthétique de la HP-41C 
d e Une procédure tri en Pascal et Basic e L'histoire des langages: l'Assembleur e Logo, 
un langage puissant e Comment utiliser Forth e L'instruction FOR... NEXT e Des auxiliaires 
précieux : les “Booléens” e Dix programmes courts pour tester le Basic de votre machine 
e Trucs et astuces sur X-07,ZX 81, Apple Il, PC-1500, TO7, PB-100, Alice, FX-702P,PC-1212e 


tions supplémentaires sur PC-1500e Des applications du langage machine pour processeur 
Z80 et 6502 e Copie d'écran sur PB-700 e Pourquoi diable programmez-vous ? e L'histoire 
des langages: le Fortran e Travaux dirigés en Logo et Forth e Pascal: filtrez vos entrées 
| e Des ficelles pour TO7, TI-66, TI 99/4A, PB-100, CBM 4000 et 8000, Vic, C.64, HP-41C e 


| | N°2 :LeBasic duHR-71Be Dopezvotre Orice Un éditeur-assembleur pour C.64e 16fonc- 
| 
| 
| 


N° 3 : Le Basic du BBC e Un compilateur pour Spectrum e Création graphique sur TO7 
e Un macro-assembleur pour C.64e Latablette graphique Koala Pade TriQuicksorten Basic PR A en re ee ee 
e Pascal convertit les majuscules en minuscules e L'histoire des langages: le Cobol 


|_e Un mini-moniteur pour PC-1251 e Tic-Tac-Toe: le programme imbattable e La fonction I BON DE COMMANDE 
;. Modulo sur HP-41e Un détecteur de nombres premierse Trucs et astuces sur Atari, FX-602P, Î à retourner à LIST 
| FX-702 P, PET/CBM, TI-57, ZX Spectrum e I - Service Numéros - 
N° 4 . Les Basics du Coco 2 et des Atari e Le compilateur “Turbo Pascal” pour Apple II : pop 
| e Programmez votre TO7 en Assembleur e Une table de conversion décimal-hexadécimal 
e Interpréteur ou compilateur? e Quand le Basic devient récursif e Conversion de chaînes I Je désire recevoir les numéros de LIST cochés 
en Pascal e Haro sur les octets perdus de la HP-41C e L'histoire des langages: le Pascal l ci-dessous. 
e 20 décimales pour vos logarithmes e En conversation avec Logo e Rapidité d'exécution: I 
16 machines testées e Des ficelles pour Alice, C.64, DAI, MOS5, Oric, PC-1211, 1251, 1500, 111 | 213 | 415 
TO7, TRS-80 e I 
o ; | au prix de 20 FF* l'unité. 
N 5: Le Basic du standard MSX e Le Basic et l'Assembleur d'Alice 90 e Forth pour l 
Spectrum e Un assembleur pour le DAI e Initiation au Basic sur TO7 e Simon's Basic: l Pour 3 anciens numéros, je bénéficie du prix de 
100 instructions supplémentaires pour C.64 e Protégez vos messages sur X-07 e Sous I 40 FF au lieu de 60 FF.* 
| la loupe: un jeu d'envahisseurs pour PB-700 e Programmez un écran graphique sur Oric I : | ; 
et Apple e Formatage des nombres en Pascal e Paramétrez vos périphériques e PC-1251 | À Je joins mon règlement indispensable à l'ordre 
en musique e Le Basic de 30 machines au banc d'essai e Trucs et astuces sur Oric, PC-1251, | de LIST 
TI-67 LCD, TO7, DAI, Apple Ii, ZX 81, MSX, HP-41C, Spectrum e ] Ko 
RS a — rss JT} - : —_— 
Prix d’un numéro: Belgique : Suisse : Canada: î Prénom - ——— 
France : 20 FF SOUMILLION EDIMONT LMPI | 
Belgique : 154 FB 28, av. Massenet 19, r. du Grand-Mont 9345 rue de Meaux Adresse — _ 
Suisse: 6FS 1190 Bruxelles CH 1052 Saint-Léonard | 
Canada : 2.95 $C Tél.:02/345 9192 Le Mont sur Lausanne Québec (| PTE PRES : 
Autres Pays: 25 FF Versement à a Le . : 65 she ra So SAS I 
210-040 5835- ersement Caisse é 
Par avion: d'Epargne et de Crédit [| RP de 
Afrique francophone : 28 FF 10.432 Le Mont CH 1052 France et autres pays: L vi 
Amérique, autre Afrique, compte courant 5, place du Colonel Fabien Ie ” ue nu 
Océanie: 34 FF n° 650 156-7 75491 Paris Cedex | 
Asie: 40 FF Tél.: (1) 240 22 01 I PAYS. te = — 


LA RÉCRÉ DE LIST * 


LES JEUX ET CASSE- TÊTE 
INFORMATIQUES 


P2S 
ii 39 © 
de Thierry CHAMORET ie 
ES jeux et casse-tête qui vous sont proposés l . 


dans cette rubrique ont plusieurs aspects. Ge. 
Tout d’abord, ils peuvent être pris sous l'angle ludique, c'est-à-dire Û 
qu'il s’agit de jeux, de petits problèmes plus ou moins faciles à résoudre. 
Ils ont également un aspect pratique. Ils permettent 
en effet à chacun d'exercer son agilité logique. Et il n’est pas nécessaire, 
pour trouver la solution, d’avoir un ordinateur sous la main... 


L'élément neutre de la multiplication 
des nombres vaut 1. Celui de la multi- 
plication des matrices est la matrice 
unité, matrice carrée composée de uns 
dans la diagonale principale et de zéros 


7 


PT ‘ : 50 ailleurs : 
Opérations DIV et MOD Construire la matrice unité 10...00 
01 .00 
Les opérateurs MOD et DIV ne Le calcul matriciel définit des opé- 00 D 0 
sont pas présents dans tous les rations non pas sur des nombres, 00 Ne 01 


Basic. Ils s’appliquent à deux variables. 
Ainsi, A MOD B donne le reste de la 
division entière de A par B. Par exem- 
ple, 11 MOD 3 est égal à 2. 


comme en algèbre, mais sur des ta- 


bleaux de valeurs, appelés matrices. Une valeur placée à la ligne Let à la 
colonne C est égale à 1 si L = C et à 


0 sinon. 


L'opération A DIV B retourne, quant 
à elle, le résultat de la division entière 
de A par B. 11 DIV 3 est donc égal à 3. 
Connaissant ces opérateurs, vous 
trouverez, sans l’aide d’un ordinateur, 
les résultats des opérations suivantes : 
1. A MOD 1 


SLæuaiumezwn 
> 
E 
<« 
> 


jsd 


* Les solutions des jeux proposés ici paraîtront 
dans le prochain numéro de LIST. 
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(imace en AGÉUERE ) 


L’initialisation d’un tel tableau dans 
un programme informatique n’est pas 
une chose bien complexe. Le pro- 
gramme suivant le réalise très bien 
(même dans le cas d’une matrice 


rectangulaire) : 

10 for L = 1 to MAXLIG - 

20 for C = 1 to MAXCOL 

30 if L = C then A(L,C) = 1 else 
A(L,C) = 

40 next C 

50 next L 


Temps d'exécution des instructions rencontrées 


Instructions 


Exemples 


Temps d’exécution 


Passage sur une boucle for L = 


for... next 


1t0o N / next L 


85Gmicrosecondes 
par itération 


Affectation d’une valeur à 
l’élément d’un tableau 


A(L,C) = 0 
ou A(L,C) = 


L 130 microsecondes 
=. dux 


; 


Comparaison de deux valeurs | if L = 


C then / else 


810wigrosecondes 
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D 


Les temps d’exécution, en microse- 
condes (millionièmes de seconde), rele- 
vés sur notre ordinateur sont réunis 
dans le tableau des ‘Temps d’exécution 
des instructions rencontrées”. 


Par exemple, avec MAXLIG = 100 

et MAXCOL = 100, le temps d’exécu- 
tion de notre programme se calcule de 
la façon suivante : 
100 fois la ligne 10, (100 x 100) fois la 
ligne 20, (100 x 100) fois la comparai- 
son de la ligne 30 et (100 x 100) fois l’af- 
fectation de la ligne 30. Soit en micro- 
secondes : (100 x 850) + (10 000 x 850) 
+ (10 000 x 810) + (10 000 X 1 130), ce 
qui fait un total de 27 985 000 secondes, 
soit environ 28 secondes. 


Comme nous le constatons, le temps 
de calcul pour initialiser notre matrice 
est loin d’être négligeable. Comme il est 
toujours préférable en informatique 
d’obtenir des programmes plus rapides, 
vous pourrez écrire un autre programme 
d’initialisation qui, en fonction des 
temps de calcul indiqués, s’exécutera en 
moins de 20 secondes. 


# 


La fausse égalité 


:: L'informatique n’est pas une 
: science exacte. Mais toutes les 
erreurs rencontrées ne sont pas des 
erreurs de programmation. Contraire- 
ment à ce que l’on nous a toujours 
appris, l'ordinateur fait, lui aussi, des 
erreurs. Pour illustrer cette affirmation, 
vous trouverez certainement des valeurs 
de A, Bet C qui ne vérifient pas l’éga- 
lité : 
(A x B) x C = A * (B x C) 
Et ce, sans qu’il y ait de débordement 
ou de sous-débordement dans les cal- 
culs. 


| ERRARE 
INFORMATICOM 
EST ! 


G9 it EST INFORMATIQUE DE SE ROME. 
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SOLUTIONS DU NUMÉRO PRÉCÉDENT 


effectué avec prudence. Plusieurs solu- 
tions peuvent être envisagées : 
if (A < B) = (B > 0) 
if ((A < B) and (B > 0j) or ((A > = 
B) and (B < = 0)) 

où and et or sont des opérateurs 
logiques. 

D’autres solutions peuvent encore 
être découvertes. 


Les solutions présentées ici 
répondent aux problèmes 
posés dans le précédent 
numéro de LIST, 

Ce ne sont pas forcément 
les meilleures ! 


>vvi 3 


Un test impossible 


v 14 


Toujours plus court 
Remplacer le test ‘‘if (A/B) < 1°? 


par ‘“‘if A < B’° est une opération 
dangereuse : ces deux tests ne sont pas 
équivalents. En effet, dans le cas où 
l’une des valeurs À ou B est négative, 
ils ne donnent pas les mêmes résultats. 


En prenant par exemple, À = 2 et 
B = 4, le premier test est vérifié (A/B 


La séquence d’instructions : 
10 for I = 1to N 
20 if I — 2 «int (1/2) = 0 
30 then E (4) = int (1/2) + 1 
40 else E (1) = int (1/2) 
50 next I 


vaut —0,5 et —0,5 < I est vrai) alors 
que le second ne l’est pas (2 < —4 est 
faux !). 


Dans un programme qui utilise des 
valeurs négatives pour B, le second test 


a pour objet de mettre la valeur 1 dans 
les cases 1 et 2 du tableau E, 2 dans les 
cases 3 et 4, 3 dans les cases 5 et 6, etc. 


Elle peut être programmée beaucoup 
plus simplement, de la façon suivante : 


ne renvoie donc pas les mêmes résultats 
que le premier. C’est pourquoi le rem- 
placement de if (A/B) < 1 doit être 


10 for I = 1toN 
20 E (1) = int ((1 + 1)/2) 
30 next I 


vvi 5 
Une autre fonction aléatoire 


Il existe deux méthodes pour obtenir un nombre aléatoire compris entre A 
et B à partir de la fonction RANDOM. 


La première consiste à diviser La valeur de RANDOM par 32768. Ainsi, nous 
obtenons des nombres aléatoires compris entre 0 et 1, de la même façon que la 
fonction RND. Nous avons donc la formule : 

(B-A+1) x RANDOM / 32768.0 + A 


La seconde méthode utilise l'opérateur mod qui fournit le reste de la division 
entière de deux nombres. Le reste de la division de RANDOM par (B—-A+1) 
est une valeur qui est toujours comprise entre 0 et (B— A). En ajoutant la valeur 
de A à ce reste, nous obtenons des nombres aléatoires entre A et B. Cette expres- 
sion s’écrit : À + RANDOM mod (B—A+1) 


En analysant de près le comportement de cette dernière formule, on constate 
qu’elle ne donne pas, sur une longue série de valeurs, des nombres aléatoires uni- 
formément distribués. En prenant À = Oet B = 10000, la moyenne des nombres 
aléatoires n’est pas de 5000, mais de 4694,047. Cette dernière valeur théorique 
se confirme en faisant un grand nombre de tests. Sur cent millions de tirages que 
nous avons réalisés, nous trouvons par exemple une moyenne de 4694,748 pour 
la seconde formule, alors que la première obtient une moyenne de 4999,612, ce 
qui est très proche de 5000. 
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DANS QUEL 
NUMÉRO ÉTAIT-CE ? 


NDEX récapitutalif des articles 
publiés dans les cinq premiers 
numéros de LIST. 


LIST a maintenant plus de six mois. Sans compter 

ceux du présent numéro, nous avons déjà publié 
quelque cent cinquante articles. Une bonne partie de ces 
articles nous ont d'ailleurs été proposés par vous, lecteurs. 
C'est particulièrement vrai concernant ce sympathique 
bazar aux idées baptisé la boîte à malices. 


Pour vous aider à retrouver en un clin d'œil les textes 


et les programmes qui vous intéressent, nous vous pro- 
posons aujourd'hui cet index récapitulatif. 


Comment fallait-il répertorier ces articles ? Nous avons 
distingué six grands axes : programmation, système, lan- 
gages, coups d'œil sur des logiciels et essais de différents 
Basics. À l'intérieur de ces grandes catégories, nous avons 
de nouveau classé, le plus souvent par machines ou par 
langages. 


Vous trouverez donc dans les pages qui suivent une 
sorte de table des matières de LIST depuis sa création. 


Maryse GROS 
Eliane GUEYLARD 


PROGRAMMATION 
BASIC BASIC l 
Programmation structurée. Comment programmer ?| Un programme autodidacte. Apprenez à votre ordina- 
Quelle méthode adopter ? Un point de vue sur la teur à jouer au Tic-Tac-Toe. Le programme, écrit en 
QUÉSÉION Rs ss secrets due LIST 1 p. 30 Basic standard, joue contre vous et contre lui-même. Au 
Kaléidoscopes. Des programmes destinés au plaisir début, il est un piètre adversaire, mais plus il dispute 
des yeux. Ils animent l'écran de votre téléviseur avec des de parties, plus il devient difficile à battre ....... LIST 2 p. 33 
compositions abstraites. Des exemples sont donnés sur Gestion de programmes sur Apple II. Un procédé 
Spectrum, Lynx, TO 7 et TRS 80 .....,..,...... LIST 1 p. 33 pour faire cohabiter en mémoire vive un programme de 
Un jeu de Squash. Comment programmer un jeu sur menu et les autres programmes qu'il va chercher sur la 
votre ordinateur. Exemple sur Oric ............. LIST 1 p. 38 disquette ...,...,.....,.,.,,,.,,,,,,....... LIST 2 p. 47 
Un programme sous la loupe. La liste d'un jeu pour Paramétrez, vous dis-je... D'un ordinateur à l'autre, | 
PB-700 (le PokeRTL) est ici décortiquée afin de mettre les adresses changent, bien entendu, mais ce ne sont 
en lumière la façon dont le programme a été conçu | LIST 1 p. 62 pas ces quelques difficultés qui nous arrêteront dans 
Paramétrez, vous dis-je. Pour gagner du temps et notre paramétrage effréné ...............,... LIST 3 p. 44 
faire des économies de mémoire vive, on a tout intérêt Un autre langage, le javanais. La réalisation d'un pro- 
à préférer les variables aux constantes .......... LIST 1 p. 66 gramme de traduction en javanais doit tenir compte 
Mettez une calculette dans votre ordinateur. Quel- des cas particuliers. Et ils sont nombreux ! ...... LIST 3 p. 63 
ques lignes de Basic et votre ordinateur devient aussi Détecteur de nombres premiers. La suite de Perrin est 
pratique qu'une calculatrice « quatre opérations » ! Sur | une suite numérique qui semble mettre en valeur les 
TI 99/4A, TO 7, Dragon 32/64 et TRS 80 ........ LIST 1 p. 69 nombres premiers. Mais aussi de rares nombres compo- 
La logique en Basic. Vrai ou faux ? Les variables boo- sés. Ces derniers seront éliminés par deux autres suites. | LIST 3 p. 70 
léennes sont des auxiliaires précieux pour le program- Paramétrez, vous dis-je... Même pour tirer un trait à 
meur, Encore faut-il savoir les utiliser à bon escient | LIST 1 p. 83 | | l'écran, les paramètres sont bien utiles ......... LIST 4 p. 20 
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PROGRAMMATION 


BASIC 


Poussières de mémoire. Méfiez-vous du « garbage col- 
lection ». Un programmeur averti en vaut deux .... 

Table de conversion décimal-hexadécimal. Si vous 
non plus, vous ne savez pas faire de tête les conversions 
d'une base à l'autre .,....,.,,,,,,.,.,,,.,.. 

Un programme Basic sous la loupe : une équation de 
balistique est au cœur d'un jeu sur le PB-700 .... 

Récursivité, le Basic y vient... Certains reprochent au 
Basic standard d'être trop lent, difficile à structurer, 
pauvre en procédures, etc. Peut-être seront-ils séduits 
par le Basic récursif ......,........,,,,...., 

Les logarithmes avec vingt décimales. Pour les obte- 
nir, voici un programme en Basic qui fait appel à la mul- 
tiprécision, aux mémoires tournantes, au « pilotage » et 
même au développement en série .....,.,,..... 

Espionite et ordinateur : quelques lignes de Basic suf- 
fisent pour effectuer les transformations fondamenta- 
les de la cryptographie, Deux programmes pour Canon 
LOT sors tiaensseusaneedanencdine aus 

Un programme sous la loupe. Comment réaliser des 
programmes simples et concis. Un jeu « d'envahis- 
seurs », présenté sur PB-700, sert d'exemple ...... 

Dessiner par petites touches. Comment programmer 
un écran graphique (Oric et Apple Il) 


LIST 4 p. 


LIST 4 p. 


LIST 4 p. 


LIST 4 p. 


LIST 4 p. 


LIST 5 p. 


LIST 5 p. 


LIST 5 p. 


23 


29 


50 


56 


58 


28 


44 


57 


LANGAGE-MACHINE 


LANGAGE MACHINE SPÉCIALISÉ 


Les indicateurs de la FX-602, L'unité d'angles avec 
laquelle vous travaillez apparaît à l'écran grâce aux indi- 
cateurs DEG, RAD, GRA. Rien n'interdit d'utiliser ces 
trois indicateurs pour faire un jeu ............. 

La fonction Modulo de la HP-41, Sa principale appli- 


originaux sont possibles ..................,., 

Misez p'tit, optimisez. Une rubrique dont le but est de 
présenter des programmes optimisés au maximum. Des 
défis sont lancés au lecteur (HP-41)............ 

Programmation synthétique de la HP-41 

Que le grand Cric me croque : le B-A-BA de la program- 
mation synthétique ......,...,...,..,,...... 

Onze registres pour tout faire .........,.,..,,, 

Table de correspondance entre fonctions et codes . 


LIST 1 p. 


LIST 5 p. 


LIST 1, 2, 


LIST 1 p. 
LIST 2 p. 
LIST 4 p. 


68 


54 


UTILITAIRES 


Si votre processeur est un Z 80. Une bonne occasion | 
de découvrir l'assembleur ou le langage-machine. Si 


vous les pratiquez déjà, l'application proposée retien- ou les exécuter) les autres programmes en mémoire | LIST 1 p. 65 
dra peut-être votre attention. Il s'agit du problème de Chaïnage sur Commodore. Votre programme est trop 
Syracuse, toujours sans solution ........,,,..,. LIST 1 p. 71 | | 109 pour la mémoire de votre ordinateur ? Qu'à cela ne 
Le langage-machine, vraiment rapide ? La preuve tienne, découpez-le en MOTCEAUX. Le premier appellera 
vous en est donnée ici sur PC-1251 ............ LIST 1 p. 94 le deuxième et ainsi de suite hier te denses LIST 1 p. 95 
Si votre processeur est un Z 80. Une routine en Comment simuler l'instruction CHAIN qui fait cruel- 
langage-machine de 98 octets vous permet de retrou- lement défaut à votre Commodore nee LIST 2 p. 39 
ver en moins de quatre heures la valeur exacte du plus Caractères graphiques sur MO 5. La fonction 
grand nombre premier connu, et d'explorer les nombres DEFGR$ qui permet la création de caractères n'est pas 
de METSenne .. scsi... LIST 2 p. 49 vraiment facile à utiliser, Comment la remplacer 
Si votre processeur est un 6502. Comment réaliser avantageusement .......................... LIST 2 p. 67 
une inversion vidéo (Apple et Oric) ............. LIST 2 p. 79 | | Un catalogue amélioré pour le Spectrum. Chaque 
Une petite musique de poche. En bricolant un peu le cartouche de « microdrive » contient davantage d'infor- 
PC-1251, mais de façon purement logicielle, on peut lui mations qu'elle n'en délivre normalement. Comment 
faire émettre des sons. C'est l'affaire de quelques octets aller les repêcher ? ....,..,............ no LIST 2 p. 68 
en langage-machine .....u rer uiccis. LIST 5 p. 64 Gestion des erreurs sur PC-1500. Dans certains cas, 

z on peut prévoir qu'un programme conduira normale- 
PROCEDURES PASCAL _ ment à des messages d'erreur. On doit alors faire en 
Tri interne. Utilisation d'une méthode de tri, inventée sorte que l'exécution n'en soit pas interrompue ... | LIST 2 p. 73 
par D. L. Shell (amélioration des différentes techniques Copie d'écran sur PB-700, Pour conserver une trace | 
de tri par insertion) .....,......,.,,,.,...... LIST 1 p. 50 imprimée de votre affichage, deux utilitaires de reco- 
Filtrez les entrées. Une erreur dans la saisie d'un nom- pie: (d'ÉCrAN à..25 28 srraemne ne sos dass deré LIST 2 p. 82 
bre et le programme déraille. D'où l'intérêt d'une pro- Le ZX 81 a sa fenêtre. Une routine qui crée une fené- 
cédure qui vérifie la validité des nombres entrés .. | LIST 2 p. 58 tre mobile, de taille variable, pouvant être disposée à 
Minuscule en majuscule. Pour donner un peu de sou- n'importe quel endroit de l'écran ......,,,,,,., LIST 5 p. 22 
plesse aux applications informatiques, comment con- Un programme anti-pirates. Comment protéger effi- 
vertir une chaîne comportant des minuscules en une cacement la mémoire de son PC-1500 ....,,..,.. LIST 4 p. 50 
chaîne identique, mais ne possédant que des Un mini-moniteur pour PC-1251. La connaissance de 
IMAJUACUIES: 5e és mereumamesaeuonies LIST 3 p. 61 l'état des registres internes de la machine aide beau- 
Conversion de chaîne. Les chaînes de caractères con- coup à la mise au point des programmes en langage- 
tiennent parfois des nombres. Si la variable est alpha- MACBINE mess smcabusemenstenscauemnus LIST 3 p. 68 
numérique, le nombre n'est pas reconnu. Une conver- Basic appelle langage-machine. Sur l'Apple II, cer- 
SION FIMPOSÉ 5 mas tuaieme sue ttes LIST 4 p. 49 tains programmes en Applesoft doivent faire appel à de 
Les nombres et leur format. Numéros d'identification petits programmes en Assembleur ........,.... LIST 4 p. 66 
divers, codes postaux, sommes comptables, autant de Pascal appelle langage-machine. Même en Pascal, la 
formats différents qui nécessitent une petite « mise en réussite exige parfois une ou plusieurs routines en 
CE A ee caues [LIST 5 p. 66 | | langage-machine ........................... LIST 5 p. 46 


Programmer LIST et RUN sur PC-1500. En 140 octets, ( 


un utilitaire qui se charge de retrouver (pour les lister 
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SYSTEME 


Faites le tour de vos boucles FOR...NEXT, La même 
instruction ne réagit pas toujours de façon identique 
sur toutes les machines. Déterminez vous-même com- 
ment votre ordinateur exécute FOR-NEXT. 
Inspectons le ZX Spectrum. Un ordinateur sur lequel 
il y a beaucoup à dire .,,,,....,,.,..,,,..,., 

Huit Ko de mémoire morte. Depuis la sortie du 
PC-1251, c'est en vain que nous recherchons ces huit 
Ko de mémoire morte, Nous savons maintenant où les 
trouver et comment faire pour les décrypter ...... 

Les disquettes du C.64, Le système d'exploitation des 
disquettes de Commodore permet de faire beaucoup de 
choses a priori impossibles. Bien que plus spécialement 
destinés aux usagers du C.64, cet article s'adresse aussi 
aux possesseurs de modèles plus « anciens » (gamme 
3000 et 4000 et Vic 20)........,,.,,,,,,..., 

Interpréteur et compilateur. La traduction du langage 
évolué au langage-machine passe soit par un compila- 
teur, soit par un interpréteur. Chacun possède ses avan- 
tages et ses inconvénients ....,..,..,......., 

Les disquettes du C. 64 (suite). La piste centrale, celle 
du « directory », mérite une attention particulière . . 

Paramétrez vous dis-je... Comment paramétrer l'uti- 
lisation des périphériques de l'ordinateur : écran, impri- 


| mante, lecteur de disquette .................. 


LIST 1 p. 


LIST 1 p. 


LIST 1 p. 


LIST 3 p. 


LIST 4 p. 


LIST 4 p. 


LIST 5 p. 


49 


54 


76 


27 


31 


53 


30 


L'HISTOIRE DES LANGAGES 


LANGAGES 


Au commencement étaient les zéros et les uns. Le 


|_FORTH 


langage-machine ........,..........,....... LIST 1 p. 46 
Le Fortran, l'un des tout premiers langages évolués, a 
déjà trente ans et continue à être utilisé ........ LIST 2 p. 36 
La création de Cobol répondait aux besoins posés par 
la gestion de fichiers de données importants. Après plu- 
sieurs ébauches, il est arrêté dans sa forme définitive | LIST 3 p. 56 
Récursivité, lisibilité, maintenance aisée, ce sont les 
qualités essentielles du Pascal ........,....... LIST 4 p. 26 
Le début d'une série d'articles destinés à vous familia- 
riser avec un langage encore peu connu en France . | LIST 1 p. 89 
Progressons dans la découverte de ce langage original. 
Cette fois-ci, nous abordons l'étude de la boucle 
DO LOOP user sonresvunererresaesdeinne LIST 2 p. 63 
Etude de la pile de retour et des opérateurs de pile | LIST 3 p. 47 
Dernier volet notre présentation : comment Forth traite- 
til les nOMbTES 2 ere ssnoneee aidons LIST 5 p. 60 


LOGO 


Si ce langage est devenu célèbre grâce à sa tortue, n'ou- 
blions pas qu'il a bien d'autres attraits et de nombreu- 
ses possibilités. Logo est un langage puissant .... 
Petits cours et travaux dirigés. Les procédures 
DLEITENTeS à ss nca vmrsmcbecsaresnaans 
Dialogue avec Logo. L'entrée des données se fait à par- 
tir du clavier ; mais il n'est pas toujours nécessaire de 
passer par l'intermédiaire d'une variable .,.,.,.. 


LIST 1 p. 


LIST 2 p. 


LIST 4 p. 


75 


75 


62. 


LE LANGAGE C 


| Présentation. Pour l'écriture des logiciels-système, le 
C est un nouveau langage structuré, facile, rapide et 
transposable d'un matériel à l'autre ..........,.. 


LIST 3 p. 


25 


L LES COUPS D'ŒIL DE LIST 
TOOL pour Commodore 64, Un logiciel sur cartouche 
qui met à votre disposition des instructions nouvelles 
et particulièrement intéressantes ..,........... LIST 1 p. 40 


BASIC ÉTENDU pour TI 99 / 4A. Un ensemble de fonc- 
tions élaborées dont les plus spectaculaires concernent 
la gestion de l'écran ..,.................,,.. LIST 1 p. 42 
COMPACTOR pour TO 7, Cinq options d'optimisation 
des programmes (rénumérotation, suppression des 
REMs, des espaces facultatifs, références croisées et 
bien sûr, compactage) .............,,,,,,,,... LIST 1 p. 44 
BASIC ÉTENDU pour Oric et Atmos. Une seule et 
même cassette qui enrichit à la fois le Basic de l'Oric-1 
et celui de l'Atmos. Les améliorations concernent essen- 


tiellement les graphismes ...... pessresessssss LIST 2 p. 52 
ARROW 64 pour Commodore 64. Éditeur-assembleur 
assez performant et simple d'emploi ......,...., LIST 2 p. 54 


PC-Util 2 pour PC-1500. Pour doper le Basic du 
poquette qui se voit pourvu, selon les modèles, de 16 
ou 19 instructions d'aide à la programmation .... | LIST 2 p. 56 
M CODER II pour ZX Spectrum. Ce compilateur Basic 
sur cassette est un outil sophistiqué qui permet d'ob- 
tenir une remarquable vitesse dans l'exécution des 
DrOGTAMIMÉS: 545 beurre sé domanerusos LIST 3 p. 36 
CARACTOR pour TO 7 et TO 7/70. Simple d'emploi, 
cette cartouche permet de réaliser des dessins à l'écran, 
et de les utiliser facilement .................. LIST 3 p. 39 
ASSEMBLER pour Commodore 64. Un macro- 
assembleur sur disquette dont l'utilisation est réservée 
aux initiés du langage assembleur ..,...,,,..., LIST 3 p. 41 
TURBO PASCAL sur CP/M ou MS/DOS. Testé ici sur 
un Apple II muni d'une carte Z 80, cette disquette per- 
met une compilation directe (sans l'intermédiaire du P- 
code) en langage-machine des programmes écrits en 


PASCAl ss usenesss dodanesosecrsotss. dus LIST 4 p. 39 
DRAGBUG pour Dragon 32. Un moniteur et un désas- 
sembleur sont réunis sur une même cassette ..... LIST 4 p. 41 


ASSEMBLEUR pour T07 et 207/70. Une cartouche pour 
programmer en assembleur (éditeur, assembleur et 
moniteur) ..,........,.,,..,.,.........,.. LIST 4 p. 42 
CHOPIN ET GÉNÉCAR pour Lynx. Une cassette qui vous 
permettra de créer des mélodies et de générer de nou- 
VEAUX CATACIRTÉS à 2.4 das cameras aient mveiciet LIST 4 p. 43 
FORTH pour Spectrum avec microdrive. Deux cartou- 
ches de microdrives pour programmer en Forth au stan- 
dard uPld Dans sors né amirscssenaus LIST 5 p. 36 
SIMONS' BASIC pour Commodore 64. Un Basic 
étendu sur cartouche qui apporte, par rapport à la ver- 
sion de base, plus de cent commandes et instructions 
supplémentaires simples à mettre en œuvre ...... LIST 5 p. 38 
SPL, un assembleur pour le DAI. Sur cassette audio 

ou numérique, l'un des plus puissants assembleurs 

actuellement commercialisés pour le DAI........ LIST 5 p. 40 
Initiation au Basic du TO 7. Six volumes (douze cas- 

settes) pour apprendre à programmer le TO 7. Un bon 
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exemple d'enseignement assisté par ordinateur. | LIST 5 p. 42 
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. 40 


. 42 


. 44 


. 52 


. 54 


56 


36 


LIST À TESTE LES BASIC 


Le Basic du MO5. L'ordinateur de Thomson se fait 

remarquer par la souplesse de son Basic ....,... LIST 1 p. 58 
Les dix tests de LIST. Un chronomètre et dix courts 
programmes, pour vous faire une première idée de la 
vitesse de votre Basic ..,,,,...,.,,...,....... LIST 1 p. 87 
Le Basic du HP-71 B, Particulièrement puissant pour 
le traitement des chiffres. Résultats des dix tests appli- 


qués au HP-71 en page 43 ...,.......,....... LIST 2 p. 41 
Le Basic du BBC. Dans sa version de base, c'est l'un 
des plus complets et des plus rapides ......,... LIST 3 p. 30 
Les dix tests de LIST. Appliqués au QX-10 d'Epson et 
au BBC AGO 24 2 suoursmenmsossa nes LIST 3 p. 59 
Le Basic des Atari 600 et 800 XL. Facile à apprendre 
malgré quelques originalités .............,,.., LIST 4 p. 34 


Le Basic du Colour Computer 2 de Tandy. Un Basic 
Microsoft qui possède d'intéressantes possibilités 
QaphiQues: sons sacs snsnevane tonnes LIST 4 p. 46 
Les dix tests de LIST. Appliqués à onze nouveaux ordi- 
nateurs (Apple Il, Atari 600 XL, Colour Computer 2, 
C.64, Dai 48 Ko, Electron, HX-20, TO7, TRS-80 Modèle 
1, Vic 20 et Yeno DPC 64 - standard MSX) ....,,.. LIST 4 p. 64 
Le Basic du standard MSX. D'origine Microsoft, le 
Basic MSX est étendu et polyvalent. Rien de révolution- 
naire, mais bien des atouts et notamment celui de se 
présenter comme une norme .....,........,,.. LIST 5 p. 25 
Le Basic et l'Assembleur de l'Alice 90. Un Basic 

dépouillé mais un Assembleur résident en mémoire 

MOPÉE sas ne a dome ep meaneoee teens s LIST 5 p. 52 
Les dix tests de LIST. Appliqués à treize nouvelles 

machines (Alice 90, Atmos, Canon X-07, Dragon 32, 

Hector HRX, Lynx 48 Ko, MPF II, PB 700, Oric 1, 

PC-1260, PC-1350, TI-99/4A et ZX 81).....,,... LIST 5 p. 68 


BOITE A MALICES Classement par machines 


ALICE 


Quelques facéties. Astuces et adresses diverses ... 
Des sous-programmes spécifiques et bien utiles ... 


LIST 1p. 
LIST 4 p. 


APPLE II 


Le chainage des programmes Applesoft ......... LIST 1 p. 
Comment protéger vos programmes ....,...,... 


ATARI 


Joueurs et projectiles. Pour générer des formes et les 


MAMpUICT ose euoransarsmasadnoue LIST 3 p. 82 


LIST 5 p. 74 
_ 


COMMODORE 

Quelques remarques et conseils sur la série des ordina- 
teurs Commodore, du CBM 4000 au Vic 20 ....... 
Les trucs indispensables. Les bonnes adresses du C.64 


DAI 
Des attracteurs étranges. (Graphismes) ..,,.,,,.. 


Texte mixé au graphique. La page vidéo du Dai est tota- 
lement redéfinissable. Utilisons cette facilité ..... 


LIST 2 p. 96 
LIST 4 p. 73 


LIST 4 p. 82 


LIST 5 p. 73 


| BOITE À MALICES (suite) | 
FX-602, FX-702 P et PB-100 | | 
Astuce, comment effacer un blanc. 702P..,,,,,, LIST 1 p. 77 
Astuce, un nom pour chaque liste, 702 P........ LIST 3 p. 79 
Astuce, la FX-602 P ne s'arrête pas facilement pendant 
qu'elle fravarll.. scsi tuacieneasme LIST 3 p. 81 
Simulation de la fonction STR$. PB-100 ......... LIST 1 p. 81 
Remarque, un phénomène étonnant. PB-100 ..... LIST 2 p. 95 
HP-41 
Les fonctions classiques ...,......,......,... LIST 2 p. 92. 
Notation polonaise (HP-11 C). Un programme 

| trianguleux ....,,,,,,,.,..,,,.,4,,444044, LIST 5 p. 76 
MSX | 
Pour dessiner sur l'écran d'un ordinateur au standard 
SD RP LIST 5 p. 76 
ORIC 
Programmer pour mieux bouter .......,.,,,,., LIST 4 p. 76 
Les bonnes adresses de l'Oric 1 et de l’Atmos ..., | LIST 5 p. 70 
PC-1211, PC-1251 et PC-1500 
Convertisseur décimal-binaire. PC-1211 ......... LIST 1 p. 80 
Quelle place reste-t-il dans la mémoire de réserve ? 
POST see si aomsrssnresss ts basent LIST 5 p. 71 
Rembobiner les rouleaux, PC-1500 ............. LIST 1 p. 78 
Une question sur @ $ et @.PC-1500 ........... LIST 1 p. 82 
Quand les conversions passent par l'écran. PC-1500 | LIST 4 p. 81 
TI-57, TI-57 LCD et TI-66 


Astuce, une pause à durée variable. TI-57 LCD .... | LIST 1 p. 78 
Remarque, une ronde sans fin. TI-57 classique .... | LIST 3 p. 80 
Deux idées à creuser, TI-66 ........,,,,,,.,,,, LIST 2 p. 91 


TI 99/4A 


| Macro-instructions .,,.,,,.......e.ceccess LIST 2 p. 93 
TO7 
Inventer l'instruction PAUSE ....,..,,,,....,.. LIST 1 p. 81 
Un. petit RENUM suisses éeegess ou LIST 2 p. 92 
Modification des attributs de couleurs d'une chaîne. 
TO EL MO sta cn sssnmansno een s LIST 4 p. 75 
Récupérer un programme perdu par un NEW ...... LIST 5 p. 73 
TRS-80 

| Enregistrer et rappeler un écran graphique ....... LIST 4 p. 76 

À 


X-07 
Demandez le programme. Un DIR amélioré ....... LIST 1 p. 78 
ZX SPECTRUM 


LIST 3 p. 79 
Comment éviter END OF FILE ...............,, LIST 5 p. 81 


ZX 81 


Pour éviter que l'affichage ne défile ............ LIST 1 p. 81 
Coordonnées polaires ou rectangulaires ? ...,.... LIST 5 p. 75 
BASIC 


Un test facile à éviter ...............,,...,... 
Motifs géométriques .........,.....,.,,,,,.. 


LIST 2 p. 95 
LIST 3 p. 81 


Obtention d'une donnée manquante ........,... LIST 5 p. 72 

DIVERS 

Conversions d'angles .......,.,,,,.,,...,,., LIST 2 p. 97 

Chargez vos programmes à toute vitesse ......,, LIST 2 p. 97 
à 


BRICOLAGE 


Un écran vert à peu de frais .......,..,,,,.... ['usT 2 p. 91 
Remplissez les stylos de la table traçante de votre 
PC-1500 ou de votre PB-700 .................. LIST 2 p. 92 
Éliminons les parasites ....................., LIST 2 p. 95 
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